haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

replace ad-hoc building of code in macros with quoted lists 

Ignore-this: ec3137b5fe4c2d641d152bb77b4a7e64

darcs-hash:20120303224350-33bd9-a723683f6c5cb79023a7ff056bf5279cd64b72ee
This commit is contained in:
wojciech.meyer 2012-03-03 23:43:50 +01:00
parent 8535250c29
commit ce6525ad79
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/top/utop.el
View File

@ -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."