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 15df2d9eac
commit 8b45f0ffea

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