diff options
| author | Jay Xu <jay.xu.krfantasy@gmail.com> | 2020-07-12 00:57:32 +0800 |
|---|---|---|
| committer | Jay Xu <jay.xu.krfantasy@gmail.com> | 2020-07-12 00:57:32 +0800 |
| commit | 9d66c63c5374001608b2e1807c3e136c82c44f60 (patch) | |
| tree | d3cfed978f5946f94e70020124f9d24e87d21fcf /scheme/chez/geiser | |
| parent | 086dbba895bdc40347de1b0bff8f77d8f10192d6 (diff) | |
| download | geiser-chez-9d66c63c5374001608b2e1807c3e136c82c44f60.tar.gz geiser-chez-9d66c63c5374001608b2e1807c3e136c82c44f60.tar.bz2 | |
chez: pretty printing macroexpand results.0.12
Diffstat (limited to 'scheme/chez/geiser')
| -rw-r--r-- | scheme/chez/geiser/geiser.ss | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/scheme/chez/geiser/geiser.ss b/scheme/chez/geiser/geiser.ss index 2d13952..33d1b39 100644 --- a/scheme/chez/geiser/geiser.ss +++ b/scheme/chez/geiser/geiser.ss @@ -149,4 +149,7 @@ #f) (define (geiser:macroexpand form . rest) - (syntax->datum (expand form)))) + (with-output-to-string + (lambda () + (pretty-print + (syntax->datum (expand form))))))) |