summaryrefslogtreecommitdiff
path: root/scheme/chez/geiser
diff options
context:
space:
mode:
authorJay Xu <jay.xu.krfantasy@gmail.com>2020-07-12 00:57:32 +0800
committerJay Xu <jay.xu.krfantasy@gmail.com>2020-07-12 00:57:32 +0800
commit9d66c63c5374001608b2e1807c3e136c82c44f60 (patch)
treed3cfed978f5946f94e70020124f9d24e87d21fcf /scheme/chez/geiser
parent086dbba895bdc40347de1b0bff8f77d8f10192d6 (diff)
downloadgeiser-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.ss5
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)))))))