summaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2024-11-19 14:40:25 +0100
committerAndy Wingo <wingo@pobox.com>2024-11-19 14:40:25 +0100
commit2395f3b74c35e451f0131e13db5fc9e21207c96f (patch)
treea40c29c12d22328dcd42528fbc7b4495488c3ddd /module
parent81645a25d346de925ddbdb2f8578d46d9c9058a4 (diff)
downloadguile-2395f3b74c35e451f0131e13db5fc9e21207c96f.tar.gz
psyntax: Reorder global-extend
* module/ice-9/psyntax.scm (global-extend): Put at the beginning. * module/ice-9/psyntax-pp.scm: Regenerate.
Diffstat (limited to 'module')
-rw-r--r--module/ice-9/psyntax.scm10
1 files changed, 4 insertions, 6 deletions
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 3942a550d..d2c10fd06 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -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