[nongnu] elpa/geiser-chicken 6370805 088/102: add geiser# prefix to geiser calls

[Philip Kaludercic]

branch: elpa/geiser-chicken
commit 6370805e292f6f0f52e945379dce986ff9a6a53d
Author: Ricardo G. Herdt <r.herdt@posteo.de>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    add geiser# prefix to geiser calls
    
    Previously after switching to a module with say ",m my-module", evaluation 
of
    geiser commands from a buffer failed with:
    
    Error: unbound variable: my-module#geiser-eval
    
    A suggestion on the #chicken channel was to prefix all geiser calls with the
    module name "geiser#". I side-effect of this is that we don't need
    to import geiser anymore, reducing "pollution" of the user's code with 
geiser
    symbols.
    
    This commit adds the geiser# prefix to geiser calls, and remove "(import 
geiser)" when loading chicken 5. The same could be done for chicken 4, I didn't 
have
    time to change and test it though.
---
 elisp/geiser-chicken.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el
index 251bce8..6869966 100644
--- a/elisp/geiser-chicken.el
+++ b/elisp/geiser-chicken.el
@@ -141,14 +141,14 @@ This function uses `geiser-chicken-init-file' if it 
exists."
     ((eval compile)
      (let ((form (mapconcat 'identity (cdr args) " "))
            (module (if (car args) (concat "'" (car args)) "#f")))
-       (format "(geiser-eval %s '%s)" module form)))
+       (format "(geiser#geiser-eval %s '%s)" module form)))
     ((load-file compile-file)
-     (format "(geiser-load-file %s)" (car args)))
+     (format "(geiser#geiser-load-file %s)" (car args)))
     ((no-values)
-     "(geiser-no-values)")
+     "(geiser#geiser-no-values)")
     (t
      (let ((form (mapconcat 'identity args " ")))
-       (format "(geiser-%s %s)" proc form)))))
+       (format "(geiser#geiser-%s %s)" proc form)))))
 
 (defconst geiser-chicken--module-re
   "( *module +\\(([^)]+)\\|[^ ]+\\)\\|( *define-library +\\(([^)]+)\\|[^ 
]+\\)")
@@ -304,7 +304,7 @@ This function uses `geiser-chicken-init-file' if it exists."
                                   geiser-scheme-dir)))
     (geiser-eval--send/wait
      (format
-      "(display '((result . t) (output . f))) (load \"%s\") (import geiser)"
+      "(display '((result . t) (output . f))) (load \"%s\")"
       source))))
 
 (defun geiser-chicken--startup (remote)