summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-07 18:29:25 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-07 18:29:25 +0100
commite7aa01584d9b54e47855f2bcc434ab4c253126d5 (patch)
treeb6b07c88c08119fd9172ec89c9132d54ef33d965
parent61caa87e24a26196f529938b51d1e46373598e7f (diff)
downloadgeiser-chez-e7aa01584d9b54e47855f2bcc434ab4c253126d5.tar.gz
geiser-chez-e7aa01584d9b54e47855f2bcc434ab4c253126d5.tar.bz2
Better connection logs
-rw-r--r--elisp/geiser-connection.el17
1 files changed, 9 insertions, 8 deletions
diff --git a/elisp/geiser-connection.el b/elisp/geiser-connection.el
index e24511b..066d1a3 100644
--- a/elisp/geiser-connection.el
+++ b/elisp/geiser-connection.el
@@ -224,17 +224,18 @@
(comint-redirect-send-command (format "%s" str) rbuffer nil t))))))
(defun geiser-con--process-completed-request (req)
- (let ((cont (geiser-con--request-continuation req))
- (id (geiser-con--request-id req))
- (rstr (geiser-con--request-string req))
- (buffer (geiser-con--request-buffer req))
- (con (geiser-con--request-connection req)))
+ (let* ((cont (geiser-con--request-continuation req))
+ (id (geiser-con--request-id req))
+ (rstr (geiser-con--request-string req))
+ (buffer (geiser-con--request-buffer req))
+ (con (geiser-con--request-connection req))
+ (form (geiser-con--comint-buffer-form con)))
(if (not cont)
- (geiser-log--warn "<%s> Droping result for request %S (%s)"
- id rstr req)
+ (geiser-log--warn "<%s> Droping result for request %S: %s"
+ id rstr form)
(condition-case cerr
(with-current-buffer (or buffer (current-buffer))
- (funcall cont (geiser-con--comint-buffer-form con))
+ (funcall cont form)
(geiser-log--info "<%s>: processed" id))
(error (geiser-log--error
"<%s>: continuation failed %S \n\t%s" id rstr cerr))))))