From 31b6212e9d357ef22ac66b0fe5189f19980aa21f Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Mon, 13 Nov 2006 22:22:06 +0000 Subject: [PATCH] (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.) --- ice-9/ChangeLog | 7 +++++++ ice-9/boot-9.scm | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + + * 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 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))))