branch: elpa/geiser-kawa
commit fe548f98ab091a353b63916af9f03d4448587cb0
Author: spellcard199 <spellcard...@protonmail.com>
Commit: spellcard199 <spellcard...@protonmail.com>
melpa/melpa#6858 - Rename non-standard "geiser-kawa-util--eval/result" to
"geiser-kawa-util--eval-get-result"
---
README.org | 2 +-
elisp/geiser-kawa-devutil-complete.el | 2 +-
elisp/geiser-kawa-devutil-exprtree.el | 2 +-
elisp/geiser-kawa-util.el | 4 ++--
4 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/README.org b/README.org
index 38e1c8e..a3f9bff 100644
--- a/README.org
+++ b/README.org
@@ -172,7 +172,7 @@ displays them in a dedicated buffer."
;; Eval our Kawa code and insert result of evaluation in the buffer
;; we switched to above.
(insert
- (geiser-kawa-util--eval/result
+ (geiser-kawa-util--eval-get-result
;; The same kawa code as above, quoted so that it's not evaluated
;; as elisp.
'(let* ((cg (kawadevutil.shaded.io.github.classgraph.ClassGraph))
diff --git a/elisp/geiser-kawa-devutil-complete.el
b/elisp/geiser-kawa-devutil-complete.el
index 94178c3..4812476 100644
--- a/elisp/geiser-kawa-devutil-complete.el
+++ b/elisp/geiser-kawa-devutil-complete.el
@@ -229,7 +229,7 @@ Argument CODE-STR is a string containing the code where
completion
must happen. It must be syntactically correct Kawa scheme.
Argument CURSOR-INDEX is an integer representing where the cursor is
inside `CURSOR-STR'."
- (geiser-kawa-util--eval/result
+ (geiser-kawa-util--eval-get-result
`(geiser:kawa-devutil-complete-expr-tree
,code-str
,cursor-index)))
diff --git a/elisp/geiser-kawa-devutil-exprtree.el
b/elisp/geiser-kawa-devutil-exprtree.el
index 65d4a3f..954a7e8 100644
--- a/elisp/geiser-kawa-devutil-exprtree.el
+++ b/elisp/geiser-kawa-devutil-exprtree.el
@@ -32,7 +32,7 @@
(defun geiser-kawa-devutil-exprtree--for (code-str)
"Get the Expression tree for CODE-STR."
- (geiser-kawa-util--eval/result
+ (geiser-kawa-util--eval-get-result
`(geiser:kawa-devutil-expr-tree-formatted ,code-str)))
(defun geiser-kawa-devutil-exprtree--view-for (code-str)
diff --git a/elisp/geiser-kawa-util.el b/elisp/geiser-kawa-util.el
index 33e6ec3..1f619fe 100644
--- a/elisp/geiser-kawa-util.el
+++ b/elisp/geiser-kawa-util.el
@@ -62,8 +62,8 @@ Drawback is that `RET' must be valid elisp, while
reader."
(car (read-from-string (cadr (assoc 'result ret)))))
-(defun geiser-kawa-util--eval/result (sexp-or-str
- &optional retort-result)
+(defun geiser-kawa-util--eval-get-result (sexp-or-str
+ &optional retort-result)
"Alternative to `geiser-eval--send/result' with custom behavior.
- `sexp-or-str' is wrapped by:
(geiser:eval (interaction-environment) ...)
