From: Vladimir Sedach <vsedach@gmail.com>
Date: Mon, 30 Jul 2007 21:32:59 +0000 (+0000)
Subject: Fixed bug where script* wasn't evaluating its arguments as promised.
X-Git-Tag: parenscript-20070828~79
X-Git-Url: https://git.hcoop.net/clinton/parenscript.git/commitdiff_plain/4b5d1808866be4ba1fd96ced56a35bbf67bcc5bb?ds=sidebyside

Fixed bug where script* wasn't evaluating its arguments as promised.
---

diff --git a/src/compilation-interface.lisp b/src/compilation-interface.lisp
index b271914..6fee0a3 100644
--- a/src/compilation-interface.lisp
+++ b/src/compilation-interface.lisp
@@ -167,11 +167,10 @@ then it will be named the same as SOURCE-FILE but with js extension."
 (defmacro ps (&body body)
   `(script ,@body))
 
-(defmacro script* (&body body)
+(defun script* (&rest body)
   "Return the javascript string representing BODY.
-
 Body is evaluated."
-  `(compile-script (progn ,@body)))
+  (compile-script `(progn ,@body)))
 
 (defmacro ps* (&body body)
-  `(script* ,@body))
\ No newline at end of file
+  `(script* ,@body))