mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

module-name before syncase is booted

Browse source 
* module/ice-9/boot-9.scm (module-name): Give psyntax a module-name
  definition, even before psyntax is booted (in a future commit).
This commit is contained in:
Andy Wingo 2009-04-22 00:17:22 +02:00
parent b1e93821a3
commit efa6f9d944
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/ice-9/boot-9.scm
View file

@ -93,6 +93,11 @@
;; Before the module system boots, there are no module names. But
;; psyntax does want a module-name definition, so give it one.
(define (module-name x)
#f)
;; (eval-when (situation...) form...)
;;
;; Evaluate certain code based on the situation that eval-when is used