From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Sun, 13 Aug 2000 19:21:04 +0000 (+0000)
Subject: * psyntax.ss (top-level-eval-hook, local-eval-hook): Pass
X-Git-Url: http://git.hcoop.net/bpt/guile.git/commitdiff_plain/eaa6f703ea230b854b3ab3755a9210b7ad2e640a?hp=7f43f900eded44d28040625b8df3cec63ceb5660

* 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 f45ac9191..fc4178ed3 100644
--- 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)