summaryrefslogtreecommitdiff
path: root/scheme/guile
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-01 20:40:22 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-01 20:40:22 +0100
commit28e79842fd87689187834a2c4186b5e2ac294fe6 (patch)
tree6ef1349dea39bb9688c7a4a2e95969ef7fece7c9 /scheme/guile
parentc5d4a2b6670a9f3ce8b357ef5f4cab72eb211102 (diff)
downloadgeiser-chez-28e79842fd87689187834a2c4186b5e2ac294fe6.tar.gz
geiser-chez-28e79842fd87689187834a2c4186b5e2ac294fe6.tar.bz2
Macro-expand commands.
Diffstat (limited to 'scheme/guile')
-rw-r--r--scheme/guile/geiser/emacs.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/scheme/guile/geiser/emacs.scm b/scheme/guile/geiser/emacs.scm
index 66320ec..f2f3d45 100644
--- a/scheme/guile/geiser/emacs.scm
+++ b/scheme/guile/geiser/emacs.scm
@@ -41,6 +41,7 @@
#:use-module (system base compile)
#:use-module (system vm program)
#:use-module (ice-9 debugger utils)
+ #:use-module (ice-9 pretty-print)
#:use-module ((geiser introspection) :renamer (symbol-prefix-proc 'ge:)))
(define (make-result result output)
@@ -144,6 +145,8 @@
(define (ge:macroexpand form . all)
(let ((all (and (not (null? all)) (car all))))
- ((if all macroexpand macroexpand-1) form)))
+ (with-output-to-string
+ (lambda ()
+ (pretty-print ((if all macroexpand macroexpand-1) form))))))
;;; emacs.scm ends here