[nongnu] elpa/geiser-gauche 8adaf75 037/119: Improvements

[Philip Kaludercic]

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

    Improvements
---
 geiser-gauche.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/geiser-gauche.el b/geiser-gauche.el
index 6f12cc0..cd931d5 100644
--- a/geiser-gauche.el
+++ b/geiser-gauche.el
@@ -92,7 +92,7 @@
                           (concat "'" (car args)))
                          (t
                           "#f"))))
-       (format "(geiser:eval %s '%s)" module form)))
+       (format "(eval '(geiser:eval %s '%s) (find-module 'geiser))" module 
form)))
     ((load-file compile-file)
      (format "(geiser:load-file %s)" (car args)))
     ((no-values)
@@ -102,7 +102,7 @@
        (format "(geiser:%s %s)" proc form)))))
 
 (defconst geiser-gauche--module-re
-  "(define-module +\\(([^)]*)\\)")
+  "(define-module +\\([[:alnum:].]+\\)")
 
 (defun geiser-gauche--get-module (&optional module)
   (cond ((null module)