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.scm
View file

@ -2746,7 +2746,7 @@
(and subform (strip subform empty-wrap)))))
(let ()
(define (syntax-module id)
(define (%syntax-module id)
(arg-check nonsymbol-id? id 'syntax-module)
(let ((mod (syntax-object-module id)))
(and (not (equal? mod '(primitive)))
@ -2797,7 +2797,7 @@
;; compile-time, after the variables are stolen away into (system
;; syntax). See the end of boot-9.scm.
;;
(define! 'syntax-module syntax-module)
(define! '%syntax-module %syntax-module)
(define! 'syntax-local-binding syntax-local-binding)
(define! 'syntax-locally-bound-identifiers syntax-locally-bound-identifiers))