(set-module-eval-closure!): Undone change from 2005-06-10; with the

[bpt/guile.git] / ice-9 / boot-9.scm

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 7a91485..840b470 100644 (file)
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -1266,11 +1266,10 @@
   (let ((setter (record-modifier module-type 'eval-closure)))
     (lambda (module closure)
       (setter module closure)
-      
-      ;; do not set procedure properties on closures.
-      ;; since procedure properties are weak-hashes, they cannot
-      ;; have cyclical data, otherwise the data cannot be GC-ed.
-      )))
+      ;; Make it possible to lookup the module from the environment.
+      ;; This implementation is correct since an eval closure can belong
+      ;; to maximally one module.
+      (set-procedure-property! closure 'module module))))
 
 \f