greg/mentat
1
0
Fork 0
Code Issues 294 Pull requests Projects Releases 9 Packages Wiki Activity

Add while-let.

Browse source 
Signed-off-by: Richard Newman <rnewman@twinql.com>
This commit is contained in:
Richard Newman 2016-07-14 17:13:16 -07:00
parent bf080ced3c
commit 6c367616e6
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/datomish/util.cljc
View file

@ -29,3 +29,9 @@
(if ks (if ks
(assoc m k (conj-in (get m k) ks v)) (assoc m k (conj-in (get m k) ks v))
(assoc m k (conj (get m k) v)))) (assoc m k (conj (get m k) v))))
(defmacro while-let [binding & forms]
`(loop []
(when-let ~binding
~@forms
(recur))))