mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

psyntax: Reorder global-extend

Browse source 
* module/ice-9/psyntax.scm (global-extend): Put at the beginning.
* module/ice-9/psyntax-pp.scm: Regenerate.
This commit is contained in:
Andy Wingo 2024-11-19 14:40:25 +01:00
parent 81645a25d3
commit 2395f3b74c
1 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
module/ice-9/psyntax.scm
View file

@ -207,6 +207,10 @@
(define (local-eval x mod)
(primitive-eval x))
(define (global-extend type sym val)
(module-define! (current-module) sym
(make-syntax-transformer sym type val)))
(define (sourcev-filename s) (vector-ref s 0))
(define (sourcev-line s) (vector-ref s 1))
(define (sourcev-column s) (vector-ref s 2))
@ -439,12 +443,6 @@
(_
(macros-only-env r))))))
(define (global-extend type sym val)
(module-define! (current-module)
sym
(make-syntax-transformer sym type val)))
;; Conceptually, identifiers are always syntax objects. Internally,
;; however, the wrap is sometimes maintained separately (a source of
;; efficiency and confusion), so that symbols are also considered