summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNeil Jerram <neil@ossau.uklinux.net>2006-11-13 22:22:06 +0000
committerNeil Jerram <neil@ossau.uklinux.net>2006-11-13 22:22:06 +0000
commit31b6212e9d357ef22ac66b0fe5189f19980aa21f (patch)
tree95ceb0f7655886112c2fcf6b0c3387e9d3bfd901
parent19b16cd0551758d5f9103eb90126afbdb60f7461 (diff)
downloadguile-31b6212e9d357ef22ac66b0fe5189f19980aa21f.tar.gz
(environment-module): Change eval-closure-module call
back to procedure-property lookup. (This completes the reversion of the change made on 2005-06-10, which was only partially undone by the change on 2005-08-01.)
-rw-r--r--ice-9/ChangeLog7
-rw-r--r--ice-9/boot-9.scm2
2 files changed, 8 insertions, 1 deletions
diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index e241afed8..f50827ef8 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,10 @@
+2006-11-13 Neil Jerram <neil@ossau.uklinux.net>
+
+ * boot-9.scm (environment-module): Change eval-closure-module call
+ back to procedure-property lookup. (This completes the reversion
+ of the change made on 2005-06-10, which was only partially undone
+ by the change on 2005-08-01.)
+
2006-10-13 Neil Jerram <neil@ossau.uklinux.net>
Integration of Unix domain socket patch from William Xu:
diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 3ecd7b596..b50ae2911 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -339,7 +339,7 @@
(define (environment-module env)
(let ((closure (and (pair? env) (car (last-pair env)))))
- (and closure (eval-closure-module closure))))
+ (and closure (procedure-property closure 'module))))