summaryrefslogtreecommitdiff
path: root/module/ice-9/psyntax-pp.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2017-03-24 11:00:48 +0100
committerAndy Wingo <wingo@pobox.com>2017-03-28 19:23:13 +0200
commit6ba3f35f261293492206892c40b4cd7d29e372f8 (patch)
tree625223bab02ccb054bf38c897689cb007a047ca0 /module/ice-9/psyntax-pp.scm
parentbcfc3f2e090038c3f3bb835370ce28693ddd07b1 (diff)
downloadguile-6ba3f35f261293492206892c40b4cd7d29e372f8.tar.gz
Plumbing changes to rename "syntax-module"
* 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.
Diffstat (limited to 'module/ice-9/psyntax-pp.scm')
-rw-r--r--module/ice-9/psyntax-pp.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index e410f9f58..7749e3cd6 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -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