diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-09-12 23:30:44 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-09-12 23:30:44 +0200 |
| commit | c1de629f10bb459020fdf7d876a4b2f35f3a9e9b (patch) | |
| tree | d53c4b19de9b371b38f0f0f3d3f8cb6854a5a38e /elisp | |
| parent | 0bba2eac2a3354324e185c2a1256c6c56f667e80 (diff) | |
| download | geiser-c1de629f10bb459020fdf7d876a4b2f35f3a9e9b.tar.gz geiser-c1de629f10bb459020fdf7d876a4b2f35f3a9e9b.tar.bz2 | |
Dog food: using the scheme reader for parsing evaluation results.
Diffstat (limited to 'elisp')
| -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)))) |