From 2b33d8dcd7744aa93840b4318154cd67aac91e93 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sat, 5 May 2001 19:09:14 +0000
Subject: [PATCH] (top-level-env): Use `current-module' instead of the
 deprecated *top-level-lookup-closure*.

---
 oop/goops/util.scm | 7 ++++---
 1 file 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)