Commits

carl douglas committed 1ec79a2

Implement nil (-1) values in bulk and multi-bulk repsonses.

Comments (0)

Files changed (2)

            (multi-bulk
              (lambda () (single-line-number)))
            (bulk
-             (lambda () (read-string (single-line-number) port)))
+             (lambda () (let ((n (single-line-number)))
+                          (cond ((equal? n -1)   '())
+                                (else (read-string n port))))))
            (next-line
-             (lambda () (if (= argc (length args))
-                          args
-                          (prefix))))
+             (lambda () (cond ((equal? argc (length args))  args)
+                              ((equal? argc -1)  '())
+                              (else (prefix)))))
            (prefix
              (lambda ()
                (let ((ch (read-char port)))
       '("key"))
 (test (redis-hlen "hash1")
       '(1))
+(test (redis-blpop "list1" "1")
+      '())
 (test (redis-quit)
       '("OK"))
-