summaryrefslogtreecommitdiff
path: root/elisp/geiser-connection.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-06-16 23:15:16 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-06-16 23:15:16 +0200
commit70ffe7d5bb59cbd442b5cf84f8e7c985bfda0ee8 (patch)
treede186fbe47b28ba69cdfebc9004be653b4858a0f /elisp/geiser-connection.el
parent547363acef3c40350382bea812a533c6dbd532cc (diff)
downloadgeiser-chez-70ffe7d5bb59cbd442b5cf84f8e7c985bfda0ee8.tar.gz
geiser-chez-70ffe7d5bb59cbd442b5cf84f8e7c985bfda0ee8.tar.bz2
Fixes in retort parsing.
Diffstat (limited to 'elisp/geiser-connection.el')
-rw-r--r--elisp/geiser-connection.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/elisp/geiser-connection.el b/elisp/geiser-connection.el
index 33668e0..8090247 100644
--- a/elisp/geiser-connection.el
+++ b/elisp/geiser-connection.el
@@ -163,12 +163,12 @@
(condition-case nil
(progn
(goto-char (point-min))
- (re-search-forward "((\\(result\\|error\\) ")
+ (re-search-forward "((\\(result\\|error\\)\\>")
(goto-char (match-beginning 0))
(geiser-syntax--prepare-scheme-for-elisp-reader)
(let ((form (read (current-buffer))))
(if (listp form) form (error))))
- (error `((error (key . geiser-con-error) (msg . ,(buffer-string))))))))
+ (error `((error (key . geiser-con-error)) (output . ,(buffer-string)))))))
(defun geiser-con--process-next (con)
(when (not (geiser-con--connection-current-request con))