summaryrefslogtreecommitdiff
path: root/module/ice-9/psyntax-pp.scm
diff options
context:
space:
mode:
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