[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv28118

Modified Files:
	eval.lisp 
Log Message:
Pass on env when eval macro-forms.


--- /project/movitz/cvsroot/movitz/losp/muerte/eval.lisp	2008/03/16 22:28:12	1.20
+++ /project/movitz/cvsroot/movitz/losp/muerte/eval.lisp	2008/03/17 23:25:26	1.21
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Oct 19 21:15:12 2001
 ;;;;                
-;;;; $Id: eval.lisp,v 1.20 2008/03/16 22:28:12 ffjeld Exp $
+;;;; $Id: eval.lisp,v 1.21 2008/03/17 23:25:26 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -72,7 +72,7 @@
   (let ((macro-function (macro-function (car form))))
     (if macro-function
 	(eval-form (funcall macro-function form nil)
-		   nil)
+		   env)
 	(case (car form)
 	  (quote (cadr form))
 	  (function (eval-function (second form) env))