summaryrefslogtreecommitdiff
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
parent547363acef3c40350382bea812a533c6dbd532cc (diff)
downloadgeiser-chez-70ffe7d5bb59cbd442b5cf84f8e7c985bfda0ee8.tar.gz
geiser-chez-70ffe7d5bb59cbd442b5cf84f8e7c985bfda0ee8.tar.bz2
Fixes in retort parsing.
-rw-r--r--elisp/geiser-connection.el4
-rw-r--r--elisp/geiser-impl.el3
2 files changed, 4 insertions, 3 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))
diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el
index d45fadc..38c34ee 100644
--- a/elisp/geiser-impl.el
+++ b/elisp/geiser-impl.el
@@ -171,7 +171,8 @@
(geiser-impl--call-if-bound (geiser-impl--default-implementation)
"geiser-procedure"
proc))
-(set-default 'geiser-eval--geiser-procedure-function 'geiser-impl-geiser-procedure)
+(set-default 'geiser-eval--geiser-procedure-function
+ 'geiser-impl-geiser-procedure)
;;; Access to implementation specific execution parameters: