branch: elpa/geiser-gauche
commit 8adaf75ef33e8af8b97e06719630efae48d918f4
Author: András Simonyi <[email protected]>
Commit: András Simonyi <[email protected]>
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)
