mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

Plumbing changes to rename "syntax-module"

Browse source 
* module/ice-9/psyntax.scm (%syntax-module): Rename from syntax-module
  in order to make room for a new syntax-module primitive binding.
* module/ice-9/psyntax-pp.scm: Regenerate.
* module/ice-9/boot-9.scm: Push syntax bindings into an internal
  module.
* module/system/syntax.scm: New file.
* module/Makefile.am (SOURCES): Add system/syntax.scm.
This commit is contained in:
Andy Wingo 2017-03-24 11:00:48 +01:00
parent bcfc3f2e09
commit 6ba3f35f26
5 changed files with 35 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/ice-9/psyntax-pp.scm
View file

@ -2440,7 +2440,7 @@
(strip form '(()))
(and subform (strip subform '(()))))))
(letrec*
((syntax-module
((%syntax-module
(lambda (id)
(let ((x id))
(if (not (nonsymbol-id? x))
@ -2502,7 +2502,7 @@
(locally-bound-identifiers
(syntax-object-wrap id)
(syntax-object-module id)))))
(define! 'syntax-module syntax-module)
(define! '%syntax-module %syntax-module)
(define! 'syntax-local-binding syntax-local-binding)
(define!
'syntax-locally-bound-identifiers