[nongnu] elpa/geiser-guile 221e64e 042/284: Some refactoring and new ge:macroexpand.

[Philip Kaludercic]

branch: elpa/geiser-guile
commit 221e64ea8d6f2ce62dc88bbe74a7fa9d7a369c41
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Some refactoring and new ge:macroexpand.
---
 geiser/emacs.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/geiser/emacs.scm b/geiser/emacs.scm
index 7f03be8..66320ec 100644
--- a/geiser/emacs.scm
+++ b/geiser/emacs.scm
@@ -27,6 +27,7 @@
 (define-module (geiser emacs)
   #:export (ge:eval
             ge:compile
+            ge:macroexpand
             ge:compile-file
             ge:load-file)
   #:re-export (ge:autodoc
@@ -141,4 +142,8 @@
   "Load file, given its full @var{path}."
   (evaluate `(load ,path) #f eval))
 
+(define (ge:macroexpand form . all)
+  (let ((all (and (not (null? all)) (car all))))
+    ((if all macroexpand macroexpand-1) form)))
+
 ;;; emacs.scm ends here