diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2001-05-05 19:09:14 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2001-05-05 19:09:14 +0000 |
| commit | 2b33d8dcd7744aa93840b4318154cd67aac91e93 (patch) | |
| tree | bacb784b9e68e335507aa1335a9ee11b0725850e /oop | |
| parent | a524a03f87f5e243e072b7ad1d02b29ffae1b8da (diff) | |
| download | guile-2b33d8dcd7744aa93840b4318154cd67aac91e93.tar.gz | |
(top-level-env): Use `current-module' instead of
the deprecated *top-level-lookup-closure*.
Diffstat (limited to 'oop')
| -rw-r--r-- | oop/goops/util.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/oop/goops/util.scm b/oop/goops/util.scm index 0e6df4147..b5ab894da 100644 --- 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) |