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

remove the-environment, the-root-environment, environment-module

Browse source 
* ice-9/boot-9.scm (the-environment, the-root-environment)
  (environment-module): Remove these representation of the interpreter's
  idea of the environment, because they are not valid in the compiled
  case, and are not part of the scheme spec anyway.
This commit is contained in:
Andy Wingo 2008-09-01 23:45:20 -07:00
parent 3bf2760867
commit 060cce72db
1 changed files with 0 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -337,22 +337,6 @@
;;; {Environments}
;;;
(define the-environment
(procedure->syntax
(lambda (x e)
e)))
(define the-root-environment (the-environment))
(define (environment-module env)
(let ((closure (and (pair? env) (car (last-pair env)))))
(and closure (procedure-property closure 'module))))
;;; {Records}
;;;