[nongnu] elpa/geiser-stklos 5ffe3fd 10/30: eval geiser:... procedures in GEISER module

[Philip Kaludercic]

branch: elpa/geiser-stklos
commit 5ffe3fdee073537f6fbd30bcc2101e9005682664
Author: Jeronimo Pellegrini <j...@aleph0.info>
Commit: Jeronimo Pellegrini <j...@aleph0.info>

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