[nongnu] elpa/geiser-gauche 0656f2f 010/119: Fix geiser:eval

[Philip Kaludercic]

branch: elpa/geiser-gauche
commit 0656f2fb5ab4397e31a0890ece6dee77afd6bf0b
Author: András Simonyi <andras.simonyi@gmail.com>
Commit: András Simonyi <andras.simonyi@gmail.com>

    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))))