diff options
Diffstat (limited to 'module/ice-9/psyntax.scm')
-rw-r--r-- | module/ice-9/psyntax.scm | 10 |
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 |