branch: elpa/geiser-gauche
commit 0656f2fb5ab4397e31a0890ece6dee77afd6bf0b
Author: András Simonyi <[email protected]>
Commit: András Simonyi <[email protected]>
Fix geiser:eval
---
geiser.scm | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/geiser.scm b/geiser.scm
index 743b9ee..0388a2e 100644
--- a/geiser.scm
+++ b/geiser.scm
@@ -30,8 +30,9 @@
(cut pprint (macroexpand form))))
(define (geiser:eval module-name form . rest)
- (let ((module (or (find-module module-name)
- (current-module))))
+ (let ((module (or (and (symbol? module-name )
+ (find-module module-name))
+ (find-module 'user))))
(with-output-to-string
(cut eval form module))))
