From ce6525ad797d661dc017233fa83a5267830d76de Mon Sep 17 00:00:00 2001
From: "wojciech.meyer" <wojciech.meyer@gmail.com>
Date: Sat, 3 Mar 2012 23:43:50 +0100
Subject: [PATCH] replace ad-hoc building of code in macros with quoted lists

Ignore-this: ec3137b5fe4c2d641d152bb77b4a7e64

darcs-hash:20120303224350-33bd9-a723683f6c5cb79023a7ff056bf5279cd64b72ee
---
 src/top/utop.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/top/utop.el b/src/top/utop.el
index 4fd6325..c8d90bc 100644
--- a/src/top/utop.el
+++ b/src/top/utop.el
@@ -631,10 +631,10 @@ byte-compiling."
   (utop-choose symbol))
 
 (defmacro utop-choose-call (symbol &rest args)
-  (cons (utop-choose symbol) args))
+  `(,(utop-choose symbol) args))
 
 (defmacro utop-choose-defun (symbol &rest args)
-  (cons 'defun (cons (utop-choose symbol) args)))
+  `(defun ,(utop-choose symbol) ,@args))
 
 (defun utop-prepare-for-eval ()
   "Prepare utop for evaluation."