summaryrefslogtreecommitdiff
path: root/scheme/guile/geiser
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-06 18:16:08 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-06 18:16:08 +0200
commitb5941ceec4fc06e3cdac0098ada3a561c476d627 (patch)
tree0e8dc5f3578cad1c0ddc6ab2d73d893879078ca5 /scheme/guile/geiser
parent48b25de81bb81ab479f3b71536ad056fe322d5a3 (diff)
downloadgeiser-chez-b5941ceec4fc06e3cdac0098ada3a561c476d627.tar.gz
geiser-chez-b5941ceec4fc06e3cdac0098ada3a561c476d627.tar.bz2
Guile: fix for macroexpand.
Diffstat (limited to 'scheme/guile/geiser')
-rw-r--r--scheme/guile/geiser/evaluation.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/scheme/guile/geiser/evaluation.scm b/scheme/guile/geiser/evaluation.scm
index 6090210..96d194b 100644
--- a/scheme/guile/geiser/evaluation.scm
+++ b/scheme/guile/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