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

* boot-9.scm (the-environment): New special form: Returns an

Browse source 
object representing the current local evaluation environment.
This object can be used in `local-eval' and `defined?'.
This commit is contained in:
Mikael Djurfeldt 1998-11-20 17:12:45 +00:00
parent b322f09ab8
commit dc61592f84
2 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/ChangeLog
View file

@ -1,3 +1,9 @@
1998-11-21 Mikael Djurfeldt <mdj@kenneth>
* boot-9.scm (the-environment): New special form: Returns an
object representing the current local evaluation environment.
This object can be used in `local-eval' and `defined?'.
1998-11-13 Mikael Djurfeldt <mdj@barbara.nada.kth.se>
* boot-9.scm (collect): New syntax. Similar to begin but returns

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

@ -2737,6 +2737,13 @@
`(with-fluids* (list ,@(map car bindings)) (list ,@(map cadr bindings))
(lambda () ,@body)))
;;; Environments
(define the-environment
(procedure->syntax
(lambda (x e)
e)))
;;; {Macros}