branch: elpa/geiser-chicken
commit 6370805e292f6f0f52e945379dce986ff9a6a53d
Author: Ricardo G. Herdt <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
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)
