diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-06 18:16:08 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-06 18:16:08 +0200 |
| commit | b5941ceec4fc06e3cdac0098ada3a561c476d627 (patch) | |
| tree | 0e8dc5f3578cad1c0ddc6ab2d73d893879078ca5 /scheme | |
| parent | 48b25de81bb81ab479f3b71536ad056fe322d5a3 (diff) | |
| download | geiser-guile-b5941ceec4fc06e3cdac0098ada3a561c476d627.tar.gz geiser-guile-b5941ceec4fc06e3cdac0098ada3a561c476d627.tar.bz2 | |
Guile: fix for macroexpand.
Diffstat (limited to 'scheme')
| -rw-r--r-- | scheme/guile/geiser/evaluation.scm | 3 |
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 |