(top-level-env): Use `current-module' instead of

the deprecated *top-level-lookup-closure*.

diff --git a/oop/goops/util.scm b/oop/goops/util.scm
index 0e6df41..b5ab894 100644 (file)
--- a/oop/goops/util.scm
+++ b/oop/goops/util.scm
@@ -80,9 +80,10 @@
     (else                      (find-duplicate (cdr l)))))
 
 (define (top-level-env)
-  (if *top-level-lookup-closure*
-      (list *top-level-lookup-closure*)
-      '()))
+  (let ((mod (current-module)))
+    (if mod
+       (module-eval-closure mod)
+       '())))
 
 (define (top-level-env? env)
   (or (null? env)