mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-20 11:40:18 +02:00
(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.)
This commit is contained in:
parent
19b16cd055
commit
31b6212e9d
2 changed files with 8 additions and 1 deletions
|
@ -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:
|
||||
|
|
|
@ -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))))
|
||||
|
||||
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue