branch: elpa/geiser-chez
commit 9d66c63c5374001608b2e1807c3e136c82c44f60
Author: Jay Xu <jay.xu.krfant...@gmail.com>
Commit: Jay Xu <jay.xu.krfant...@gmail.com>

    chez: pretty printing macroexpand results.
---
 scheme/chez/geiser/geiser.ss | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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

Reply via email to