summaryrefslogtreecommitdiff
path: root/elisp/geiser-eval.el
diff options
context:
space:
mode:
Diffstat (limited to 'elisp/geiser-eval.el')
-rw-r--r--elisp/geiser-eval.el22
1 files changed, 16 insertions, 6 deletions
diff --git a/elisp/geiser-eval.el b/elisp/geiser-eval.el
index 29797e6..f7ac299 100644
--- a/elisp/geiser-eval.el
+++ b/elisp/geiser-eval.el
@@ -175,13 +175,23 @@ module-exports, autodoc, callers, callees and generic-methods.")
(concat prefix (mapconcat 'identity values nlprefix))
(or prefix "(No value)"))))
-(defsubst geiser-eval--retort-output (ret) (cdr (assoc 'output ret)))
-(defsubst geiser-eval--retort-error (ret) (cdr (assoc 'error ret)))
+(defsubst geiser-eval--retort-output (ret)
+ (cdr (assq 'output ret)))
-(defsubst geiser-eval--error-key (err) (cdr (assoc 'key err)))
-(defsubst geiser-eval--error-subr (err) (cdr (assoc 'subr err)))
-(defsubst geiser-eval--error-msg (err) (cdr (assoc 'msg err)))
-(defsubst geiser-eval--error-rest (err) (cdr (assoc 'rest err)))
+(defsubst geiser-eval--retort-error (ret)
+ (cdr (assq 'error ret)))
+
+(defsubst geiser-eval--error-key (err)
+ (cdr (assq 'key err)))
+
+(defsubst geiser-eval--error-subr (err)
+ (cdr (assq 'subr err)))
+
+(defsubst geiser-eval--error-msg (err)
+ (cdr (assq 'msg err)))
+
+(defsubst geiser-eval--error-rest (err)
+ (cdr (assq 'rest err)))
(defun geiser-eval--error-str (err)
(let* ((key (geiser-eval--error-key err))