From 640e9bc3cd7cfbd15cc834294d73c39c20dd6de4 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 6 Jun 2010 18:16:08 +0200 Subject: 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 -- cgit v1.2.3