mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

Gragg

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-03-12 09:53:30 +00:00
parent 8812412672
commit baa47a940d
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2826,7 +2826,7 @@
e))) e)))
(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 (procedure-property closure 'module)))) (and closure (procedure-property closure 'module))))