diff options
| author | Aaron Marks <nymacro@gmail.com> | 2020-01-03 23:29:15 +1000 |
|---|---|---|
| committer | Aaron Marks <nymacro@gmail.com> | 2020-01-03 23:29:15 +1000 |
| commit | 645e4775420c59bb10ef0693ed2631a8df8c0e29 (patch) | |
| tree | 3dc334bf2ce20ab242f8b003333c51c1342c79d2 /scheme/chez/geiser/geiser.ss | |
| parent | 6ec47dc1b57c1475ace9869efc1d23332da89e9b (diff) | |
| download | geiser-guile-645e4775420c59bb10ef0693ed2631a8df8c0e29.tar.gz geiser-guile-645e4775420c59bb10ef0693ed2631a8df8c0e29.tar.bz2 | |
Add rudimentary Chez support for macro expansion
Diffstat (limited to 'scheme/chez/geiser/geiser.ss')
| -rw-r--r-- | scheme/chez/geiser/geiser.ss | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/scheme/chez/geiser/geiser.ss b/scheme/chez/geiser/geiser.ss index 70b6b67..5c92a5b 100644 --- a/scheme/chez/geiser/geiser.ss +++ b/scheme/chez/geiser/geiser.ss @@ -5,7 +5,8 @@ geiser:autodoc geiser:no-values geiser:load-file - geiser:newline) + geiser:newline + geiser:macroexpand) (import (chezscheme)) (define (last-index-of str-list char idx last-idx) @@ -56,8 +57,8 @@ (k `((result "") (output . ,(get-output-string output-string)) (error (key . ,(with-output-to-string - (lambda () - (display-condition e)))))))) + (lambda () + (display-condition e)))))))) (lambda () (call-with-values ;; evaluate form, allow for multiple return values, @@ -69,9 +70,9 @@ (eval form)))) (lambda result `((result ,(with-output-to-string - (lambda () - (pretty-print - (if (null? (cdr result)) (car result) result))))) + (lambda () + (pretty-print + (if (null? (cdr result)) (car result) result))))) (output . ,(get-output-string output-string)))))))))) (newline) (close-output-port output-string))) @@ -145,4 +146,7 @@ #f) (define (geiser:newline) - #f)) + #f) + + (define (geiser:macroexpand form . rest) + (syntax->datum (expand form)))) |