diff options
author | Neil Jerram <neil@ossau.uklinux.net> | 2006-11-13 22:22:06 +0000 |
---|---|---|
committer | Neil Jerram <neil@ossau.uklinux.net> | 2006-11-13 22:22:06 +0000 |
commit | 31b6212e9d357ef22ac66b0fe5189f19980aa21f (patch) | |
tree | 95ceb0f7655886112c2fcf6b0c3387e9d3bfd901 | |
parent | 19b16cd0551758d5f9103eb90126afbdb60f7461 (diff) | |
download | guile-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/ChangeLog | 7 | ||||
-rw-r--r-- | ice-9/boot-9.scm | 2 |
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)))) |