[Guile-commits] 07/09: psyntax: Reorder global-extend

[Andy Wingo]

wingo pushed a commit to branch main
in repository guile.

commit 2395f3b74c35e451f0131e13db5fc9e21207c96f
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Tue Nov 19 14:40:25 2024 +0100

    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