From 2395f3b74c35e451f0131e13db5fc9e21207c96f Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 19 Nov 2024 14:40:25 +0100 Subject: [PATCH] psyntax: Reorder global-extend * module/ice-9/psyntax.scm (global-extend): Put at the beginning. * module/ice-9/psyntax-pp.scm: Regenerate. --- module/ice-9/psyntax.scm | 10 ++++------ 1 file 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