[movitz-cvs] CVS update: movitz/eval.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv14428

Modified Files:
	eval.lisp 
Log Message:
This is a fix, but I'm not really sure how sound it is.

Date: Thu Mar 25 20:43:46 2004
Author: ffjeld

Index: movitz/eval.lisp
diff -u movitz/eval.lisp:1.2 movitz/eval.lisp:1.3
--- movitz/eval.lisp:1.2	Mon Jan 19 06:23:41 2004
+++ movitz/eval.lisp	Thu Mar 25 20:43:46 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Thu Nov  2 17:45:05 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: eval.lisp,v 1.2 2004/01/19 11:23:41 ffjeld Exp $
+;;;; $Id: eval.lisp,v 1.3 2004/03/26 01:43:46 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -97,7 +97,8 @@
   (declare (ignore top-level-p))
   (cond
    ((typep (movitz-binding form env) 'constant-object-binding)
-    (movitz-print (constant-object (movitz-binding form env))))
+    (translate-program (movitz-print (constant-object (movitz-binding form env)))
+		       :cl :muerte.cl))
    ((movitz-constantp form env)
     (symbol-value form))
 ;;;   ((movitz-lexical-binding form env)