* slib.scm (slib:eval): Use eval instead of eval-in-module.

(defmacro:eval): Eval in (interaction-environment).

diff --git a/ice-9/slib.scm b/ice-9/slib.scm
index ba80f85..2bb33df 100644 (file)
--- a/ice-9/slib.scm
+++ b/ice-9/slib.scm
@@ -41,8 +41,8 @@
 (define slib:exit quit)
 (define slib:error error)
 (define slib:warn warn)
-(define slib:eval (lambda (x) (eval-in-module x slib-module)))
-(define defmacro:eval eval)
+(define slib:eval (lambda (x) (eval x slib-module)))
+(define defmacro:eval (lambda (x) (eval x (interaction-environment))))
 (define logical:logand logand)
 (define logical:logior logior)
 (define logical:logxor logxor)