diff options
-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)))) |