From 9d66c63c5374001608b2e1807c3e136c82c44f60 Mon Sep 17 00:00:00 2001
From: Jay Xu <jay.xu.krfantasy@gmail.com>
Date: Sun, 12 Jul 2020 00:57:32 +0800
Subject: 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)))))))
-- 
cgit v1.2.3