* psyntax.ss (top-level-eval-hook, local-eval-hook): Pass

`(interaction-environment)' as second arg to `eval'.  This is
completely equivalent with the state before the change to eval of
2000-08-11, but we should extend psyntax.ss to be module aware.
(Thanks to Ian Bicking.)

diff --git a/ice-9/psyntax.ss b/ice-9/psyntax.ss
index f45ac91..fc4178e 100644 (file)
--- a/ice-9/psyntax.ss
+++ b/ice-9/psyntax.ss
@@ -298,11 +298,11 @@
 
 (define top-level-eval-hook
   (lambda (x)
-    (eval `(,noexpand ,x))))
+    (eval `(,noexpand ,x) (interaction-environment))))
 
 (define local-eval-hook
   (lambda (x)
-    (eval `(,noexpand ,x))))
+    (eval `(,noexpand ,x) (interaction-environment))))
 
 (define error-hook
   (lambda (who why what)