summaryrefslogtreecommitdiff
path: root/elisp/geiser-connection.el
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2016-04-10 14:07:33 +0300
committerAlex Kost <alezost@gmail.com>2016-04-10 14:07:33 +0300
commitde161c045bbda1d1796d09ee03dc0bbbb6dcedc8 (patch)
treef35d2e8c0974e988e6b2931a2fd35d4932bab240 /elisp/geiser-connection.el
parentfe8de9186c80c447793e401ab15644b5f14a5aa5 (diff)
downloadgeiser-de161c045bbda1d1796d09ee03dc0bbbb6dcedc8.tar.gz
geiser-de161c045bbda1d1796d09ee03dc0bbbb6dcedc8.tar.bz2
Use assq instead of assoc in request and connection wrappers
Diffstat (limited to 'elisp/geiser-connection.el')
-rw-r--r--elisp/geiser-connection.el32
1 files changed, 16 insertions, 16 deletions
diff --git a/elisp/geiser-connection.el b/elisp/geiser-connection.el
index 675fb25..510afe9 100644
--- a/elisp/geiser-connection.el
+++ b/elisp/geiser-connection.el
@@ -43,25 +43,25 @@
(cons :connection con)))
(defsubst geiser-con--request-id (req)
- (cdr (assoc :id req)))
+ (cdr (assq :id req)))
(defsubst geiser-con--request-string (req)
- (cdr (assoc :string req)))
+ (cdr (assq :string req)))
(defsubst geiser-con--request-continuation (req)
- (cdr (assoc :continuation req)))
+ (cdr (assq :continuation req)))
(defsubst geiser-con--request-buffer (req)
- (cdr (assoc :buffer req)))
+ (cdr (assq :buffer req)))
(defsubst geiser-con--request-connection (req)
- (cdr (assoc :connection req)))
+ (cdr (assq :connection req)))
(defsubst geiser-con--request-deactivate (req)
- (setcdr (assoc :continuation req) nil))
+ (setcdr (assq :continuation req) nil))
(defsubst geiser-con--request-deactivated-p (req)
- (null (cdr (assoc :continuation req))))
+ (null (cdr (assq :continuation req))))
;;; Connection datatype:
@@ -109,31 +109,31 @@
(cons :completed (make-hash-table :weakness 'value))))
(defsubst geiser-con--connection-process (c)
- (tq-process (cdr (assoc :tq c))))
+ (tq-process (cdr (assq :tq c))))
(defsubst geiser-con--connection-filter (c)
- (cdr (assoc :filter c)))
+ (cdr (assq :filter c)))
(defsubst geiser-con--connection-tq-filter (c)
- (cdr (assoc :tq-filter c)))
+ (cdr (assq :tq-filter c)))
(defsubst geiser-con--connection-tq (c)
- (cdr (assoc :tq c)))
+ (cdr (assq :tq c)))
(defsubst geiser-con--connection-eot (c)
- (cdr (assoc :eot c)))
+ (cdr (assq :eot c)))
(defsubst geiser-con--connection-prompt (c)
- (cdr (assoc :prompt c)))
+ (cdr (assq :prompt c)))
(defsubst geiser-con--connection-debug-prompt (c)
- (cdr (assoc :debug-prompt c)))
+ (cdr (assq :debug-prompt c)))
(defsubst geiser-con--connection-is-debugging (c)
- (cdr (assoc :is-debugging c)))
+ (cdr (assq :is-debugging c)))
(defsubst geiser-con--connection-set-debugging (c d)
- (setcdr (assoc :is-debugging c) d))
+ (setcdr (assq :is-debugging c) d))
(defun geiser-con--connection-update-debugging (c txt)
(let* ((dp (geiser-con--connection-debug-prompt c))