branch: elpa/geiser-stklos
commit 5ffe3fdee073537f6fbd30bcc2101e9005682664
Author: Jeronimo Pellegrini <[email protected]>
Commit: Jeronimo Pellegrini <[email protected]>
eval geiser:... procedures in GEISER module
If the user selects a different module, these will not be visible.
---
geiser-stklos.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/geiser-stklos.el b/geiser-stklos.el
index b7a7284..5d62080 100644
--- a/geiser-stklos.el
+++ b/geiser-stklos.el
@@ -109,11 +109,11 @@ This function uses `geiser-stklos-init-file' if it
exists."
(concat "'" (car args)))
(t
"#f"))))
- (format "(geiser:eval %s '%s)" module form)))
+ (format "((in-module GEISER geiser:eval) %s '%s)" module form)))
((load-file compile-file)
- (format "(geiser:load-file %s)" (car args)))
+ (format "((in-module GEISER geiser:load-file) %s)" (car args)))
((no-values)
- "(geiser:no-values)")
+ "((in-module GEISER geiser:no-values))")
(t
(let ((form (mapconcat 'identity args " ")))
(format "(geiser:%s %s)" proc form)))))
