From c1de629f10bb459020fdf7d876a4b2f35f3a9e9b Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 12 Sep 2009 23:30:44 +0200 Subject: Dog food: using the scheme reader for parsing evaluation results. --- elisp/geiser-eval.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'elisp/geiser-eval.el') 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)))) -- cgit v1.2.3