diff options
Diffstat (limited to 'module/ice-9/psyntax-pp.scm')
-rw-r--r-- | module/ice-9/psyntax-pp.scm | 4 |
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 |