diff options
author | Andy Wingo <wingo@pobox.com> | 2017-03-24 11:00:48 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2017-03-28 19:23:13 +0200 |
commit | 6ba3f35f261293492206892c40b4cd7d29e372f8 (patch) | |
tree | 625223bab02ccb054bf38c897689cb007a047ca0 /module/ice-9/psyntax-pp.scm | |
parent | bcfc3f2e090038c3f3bb835370ce28693ddd07b1 (diff) | |
download | guile-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.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 |