summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-01 13:19:49 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-01 13:19:49 +0200
commitc4aef753ffe087961b9f078913724755d2ce0938 (patch)
tree9f66a9f845078393ea09891122e00c6e3f59814d /elisp
parenteb521e1ecc9a27e3ef208a6a4d01ec6edb88a0f7 (diff)
downloadgeiser-chez-c4aef753ffe087961b9f078913724755d2ce0938.tar.gz
geiser-chez-c4aef753ffe087961b9f078913724755d2ce0938.tar.bz2
Irrelevant refactoring.
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-connection.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/elisp/geiser-connection.el b/elisp/geiser-connection.el
index 7312de4..8e31eaa 100644
--- a/elisp/geiser-connection.el
+++ b/elisp/geiser-connection.el
@@ -229,9 +229,9 @@
(defun geiser-con--send-string/wait (buffer/proc str cont &optional timeout sbuf)
(save-current-buffer
- (let* ((con (geiser-con--get-connection buffer/proc))
- (proc (geiser-con--connection-process con)))
- (unless proc (error geiser-con--error-message))
+ (let ((con (geiser-con--get-connection buffer/proc)))
+ (unless (geiser-con--connection-process con)
+ (error geiser-con--error-message))
(let* ((req (geiser-con--send-string buffer/proc str cont sbuf))
(id (and req (geiser-con--request-id req)))
(time (or timeout geiser-connection-timeout))