mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-03 16:20:39 +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 21:36:09 +00:00
parent 35a69665b8
commit 16c2ec02fa
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-05 Kevin Ryde <user42@zip.com.au> 2006-10-05 Kevin Ryde <user42@zip.com.au>
* ftw.scm (visited?-proc): Use hashv since we know we're getting * ftw.scm (visited?-proc): Use hashv since we know we're getting

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

@ -258,7 +258,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))))
;;; {Records} ;;; {Records}