mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-15 10:10:21 +02:00
remove the-environment, the-root-environment, environment-module
* 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:
parent
3bf2760867
commit
060cce72db
1 changed files with 0 additions and 16 deletions
|
@ -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}
|
||||
;;;
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue