diff options
| -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))))))) |