diff options
| -rw-r--r-- | elisp/geiser-eval.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/elisp/geiser-eval.el b/elisp/geiser-eval.el index 402e261..5c84a57 100644 --- a/elisp/geiser-eval.el +++ b/elisp/geiser-eval.el @@ -132,10 +132,9 @@ EVAL, COMPILE, LOAD-FILE and COMPILE-FILE should be supported.")) (defsubst geiser-eval--retort-p (ret) (and (listp ret) (or (assoc 'error ret) (assoc 'result ret)))) -(defun geiser-eval--retort-result (ret) +(defsubst geiser-eval--retort-result (ret) (let ((values (cdr (assoc 'result ret)))) - (and (stringp (car values)) - (ignore-errors (car (read-from-string (car values))))))) + (car (geiser-syntax--read-from-string (car values))))) (defun geiser-eval--retort-result-str (ret) (let ((values (cdr (assoc 'result ret)))) |