summaryrefslogtreecommitdiff
path: root/scheme/chez/geiser
diff options
context:
space:
mode:
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)))))))