Correctly handle SQL errors in <?all-rows. Fixes #40.

This commit is contained in:
Richard Newman 2016-08-23 20:47:04 -07:00
parent 14a6a9bebb
commit dc87d7d557

View file

@ -76,7 +76,7 @@
;; channel being rejected and no further row callbacks ;; channel being rejected and no further row callbacks
;; being called. ;; being called.
(when (second result) (when (second result)
(put! result c)) (put! c result))
(close! c)))) (close! c))))
(defn all-rows (defn all-rows