[nongnu] elpa/geiser-guile 640e9bc 125/284: Guile: fix for macroexpand.

[Philip Kaludercic]

branch: elpa/geiser-guile
commit 640e9bc3cd7cfbd15cc834294d73c39c20dd6de4
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Guile: fix for macroexpand.
---
 geiser/evaluation.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/geiser/evaluation.scm b/geiser/evaluation.scm
index 6090210..96d194b 100644
--- a/geiser/evaluation.scm
+++ b/geiser/evaluation.scm
@@ -19,6 +19,7 @@
   #:use-module (system base compile)
   #:use-module (system base pmatch)
   #:use-module (system vm program)
+  #:use-module (language tree-il)
   #:use-module (ice-9 pretty-print))
 
 (define (handle-error stack . args)
@@ -64,6 +65,6 @@
   (let ((all (and (not (null? all)) (car all))))
     (with-output-to-string
       (lambda ()
-        (pretty-print ((if all macroexpand macroexpand-1) form))))))
+        (pretty-print (tree-il->scheme (macroexpand form)))))))
 
 ;;; evaluation.scm ends here