Remove nil argument to where

This commit is contained in:
Nuttanart Pornprasitsakul 2018-02-15 22:44:13 +07:00
parent 3588768970
commit 15af00e0de

View file

@ -84,7 +84,7 @@
[m pred logic-op]))
(defn where [& args]
(let [[m pred] (prep-where args)]
(let [[m pred] (prep-where (remove nil? args))]
(if (nil? pred)
m
(assoc m :where pred))))