From af150090685e5e456bc0788fb45703b6eace053d Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sun, 1 Mar 2009 16:41:09 +0100
Subject: Some refactoring and new ge:macroexpand.

---
 scheme/guile/geiser/emacs.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'scheme')

diff --git a/scheme/guile/geiser/emacs.scm b/scheme/guile/geiser/emacs.scm
index 7f03be8..66320ec 100644
--- a/scheme/guile/geiser/emacs.scm
+++ b/scheme/guile/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
-- 
cgit v1.2.3