diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-01 20:40:22 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-01 20:40:22 +0100 |
| commit | 28e79842fd87689187834a2c4186b5e2ac294fe6 (patch) | |
| tree | 6ef1349dea39bb9688c7a4a2e95969ef7fece7c9 /scheme/guile/geiser | |
| parent | c5d4a2b6670a9f3ce8b357ef5f4cab72eb211102 (diff) | |
| download | geiser-guile-28e79842fd87689187834a2c4186b5e2ac294fe6.tar.gz geiser-guile-28e79842fd87689187834a2c4186b5e2ac294fe6.tar.bz2 | |
Macro-expand commands.
Diffstat (limited to 'scheme/guile/geiser')
| -rw-r--r-- | scheme/guile/geiser/emacs.scm | 5 |
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 |