summaryrefslogtreecommitdiff
path: root/elisp/geiser-eval.el
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-10-08 20:03:57 +0100
committerjao <jao@gnu.org>2022-10-08 20:03:57 +0100
commit67984ac8d0ab91e02ef5674c525de0cde8cd24b1 (patch)
tree16ba7d7ea8a458c27623efe71783325073eeec45 /elisp/geiser-eval.el
parentb734a239ff9b8fde292e956174fd3356583fc76f (diff)
downloadgeiser-67984ac8d0ab91e02ef5674c525de0cde8cd24b1.tar.gz
geiser-67984ac8d0ab91e02ef5674c525de0cde8cd24b1.tar.bz2
geiser-log clean-ups
- geiser-log: Obsoleting some -p flags and lexical binding - geiser-eval: Ensuring logs for asynchronous retorts - geiser-debug: don't bail on no output with errors
Diffstat (limited to 'elisp/geiser-eval.el')
-rw-r--r--elisp/geiser-eval.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/elisp/geiser-eval.el b/elisp/geiser-eval.el
index abf0b5c..6463f80 100644
--- a/elisp/geiser-eval.el
+++ b/elisp/geiser-eval.el
@@ -130,7 +130,7 @@ module-exports, autodoc, callers, callees and generic-methods.")
(and geiser-eval--default-connection-function
(funcall geiser-eval--default-connection-function)))
-(defsubst geiser-eval--log (s)
+(defun geiser-eval--log (s)
(geiser-log--info "RETORT: %S" s)
s)
@@ -143,7 +143,7 @@ module-exports, autodoc, callers, callees and generic-methods.")
(geiser-con--send-string (geiser-eval--connection)
(geiser-eval--code-str code)
(lambda (s)
- (setq geiser-eval--async-retort s)
+ (setq geiser-eval--async-retort (geiser-eval--log s))
(funcall cont s))
buffer))