diff options
| author | LLLL Colonq <llll@colonq> | 2025-06-09 18:31:55 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2025-06-09 18:31:55 -0400 |
| commit | 5bad5320032a8fc477e9f2527d23036c41ac023e (patch) | |
| tree | 0d6643223b94d2e8413c77487b49918a9413b38b /src/wasp-db.el | |
| parent | 5d003af92aff89cc600c1125e2e8767fc88b7ae4 (diff) | |
Update
Diffstat (limited to 'src/wasp-db.el')
| -rw-r--r-- | src/wasp-db.el | 6 |
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)) |
