mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

(environment-module): Change eval-closure-module call

Browse source 
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:
Neil Jerram 2006-11-13 22:22:06 +00:00
parent 19b16cd055
commit 31b6212e9d
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
ice-9/ChangeLog
View file

@ -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> 2006-10-13 Neil Jerram <neil@ossau.uklinux.net>
Integration of Unix domain socket patch from William Xu: Integration of Unix domain socket patch from William Xu:

2
ice-9/boot-9.scm
View file

@ -339,7 +339,7 @@
(define (environment-module env) (define (environment-module env)
(let ((closure (and (pair? env) (car (last-pair env))))) (let ((closure (and (pair? env) (car (last-pair env)))))
(and closure (eval-closure-module closure)))) (and closure (procedure-property closure 'module))))