summaryrefslogtreecommitdiff
path: root/src/wasp-db.el
diff options
context:
space:
mode:
authorLLLL Colonq <llll@colonq>2025-06-09 18:31:55 -0400
committerLLLL Colonq <llll@colonq>2025-06-09 18:31:55 -0400
commit5bad5320032a8fc477e9f2527d23036c41ac023e (patch)
tree0d6643223b94d2e8413c77487b49918a9413b38b /src/wasp-db.el
parent5d003af92aff89cc600c1125e2e8767fc88b7ae4 (diff)
Update
Diffstat (limited to 'src/wasp-db.el')
-rw-r--r--src/wasp-db.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/wasp-db.el b/src/wasp-db.el
index 8900cdc1..4b327f5b 100644
--- a/src/wasp-db.el
+++ b/src/wasp-db.el
@@ -31,7 +31,7 @@
"Queue of callbacks to handle incoming responses.")
(defun w/db-parse-rest ()
- "Parse everything before the \r\n terminator (and consume the terminator)."
+ "Parse everything before the \\r\\n terminator (and consume the terminator)."
(let ((res (w/eat (lambda (c) (/= c ?\r)))))
(w/munch ?\r)
(w/munch ?\n)
@@ -62,8 +62,8 @@
"Try to parse a single RESP value from the current process buffer.
If successful, pass the value to the queued callback and return non-nil.
If not, return nil."
- (when-let ((v (w/db-parse-value)))
- (when-let ((cb (queue-dequeue w/db-callback-queue)))
+ (when-let* ((v (w/db-parse-value)))
+ (when-let* ((cb (queue-dequeue w/db-callback-queue)))
(funcall cb v))
t))