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 | 0a2d332daed0c93251058cb88495ffe8157e39db (patch) | |
| tree | 0bf461859a4a8c1796ac7e4a79dca28c78169dde | |
| parent | b131c3e5c1e954c9ce3b1324937ba89a54bc66d1 (diff) | |
| download | geiser-chez-0a2d332daed0c93251058cb88495ffe8157e39db.tar.gz geiser-chez-0a2d332daed0c93251058cb88495ffe8157e39db.tar.bz2 | |
Dog food: using the scheme reader for parsing evaluation results.
| -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)))) |