guile/guile-core/oop/goops util.scm

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/05/05 12:09:14

Modified files:
        guile-core/oop/goops: util.scm 

Log message:
        (top-level-env): Use `current-module' instead of
        the deprecated *top-level-lookup-closure*.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/oop/goops/util.scm.diff?cvsroot=OldCVS&tr1=1.1&tr2=1.2&r1=text&r2=text

Patches:
Index: guile/guile-core/oop/goops/util.scm
diff -u guile/guile-core/oop/goops/util.scm:1.1 
guile/guile-core/oop/goops/util.scm:1.2
--- guile/guile-core/oop/goops/util.scm:1.1     Wed Oct 25 07:51:33 2000
+++ guile/guile-core/oop/goops/util.scm Sat May  5 12:09:14 2001
@@ -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)