diff options
Diffstat (limited to 'scheme/experimental/mod3.sls')
-rw-r--r-- | scheme/experimental/mod3.sls | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/scheme/experimental/mod3.sls b/scheme/experimental/mod3.sls index 88a41ac..6bdde96 100644 --- a/scheme/experimental/mod3.sls +++ b/scheme/experimental/mod3.sls @@ -4,11 +4,11 @@ (import (rnrs) (sweet-macros) (for (experimental mod2) expand run)) (def-syntax m - (begin + (lambda (x) (display "At expand-time x=") (display (incr-x)) (newline) - (syntax-match () (sub (m) #'#'f)))) + "m-expanded")) (define (run) ;; this is executed at runtime (display "At run-time x=") @@ -16,6 +16,5 @@ (newline)) (m) ;; this is executed at expand time - ) |