psyntax: Add missing (interaction-environment) to eval.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 30 Oct 2016 14:46:54 +0000 (15:46 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 12 Dec 2016 19:33:49 +0000 (20:33 +0100)
* module/mes/psyntax.mes: Add (interaction-environment) to eval.

module/mes/psyntax.mes

index 27c7a4b273a00468931bf5d57ea8a5af79ea7863..d30e3ebb69ec8693b6ba7a77bd71b7bad2b7c3ba 100644 (file)
                (g47 (lambda (g589 g588) (putprop g589 '*sc-expander* g588)))
                (g46 (lambda (g584 g582 g583)
                       (error g584 '"~a ~s" g582 g583)))
-               (g45 (lambda (g587) (eval (list g38 g587))))
-               (g44 (lambda (g585) (eval (list g38 g585))))
+               (g45 (lambda (g587)
+                      (display "EVAL! e=")
+                      (display g38)
+                      (newline)
+                      (eval (list g38 g587) (interaction-environment))))
+               (g44 (lambda (g585)
+                      (display "EVAL! e=")
+                      (display g38)
+                      (newline)
+                      (eval (list g38 g585) (interaction-environment))))
                (g43 (lambda (g586) '#f))
                (g42 <)
                (g41 =)