mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 14:50:19 +02:00
Code Activity

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

Browse source 
the deprecated *top-level-lookup-closure*.
This commit is contained in:
Marius Vollmer 2001-05-05 19:09:14 +00:00
parent a524a03f87
commit 2b33d8dcd7
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
oop/goops/util.scm
View file

@ -80,9 +80,10 @@
(else (find-duplicate (cdr l))))) (else (find-duplicate (cdr l)))))
(define (top-level-env) (define (top-level-env)
(if *top-level-lookup-closure* (let ((mod (current-module)))
(list *top-level-lookup-closure*) (if mod
'())) (module-eval-closure mod)
'())))
(define (top-level-env? env) (define (top-level-env? env)
(or (null? env) (or (null? env)