From 6c367616e63c5e4cdc0bef2e629b672c6bf39bca Mon Sep 17 00:00:00 2001
From: Richard Newman <rnewman@twinql.com>
Date: Thu, 14 Jul 2016 17:13:16 -0700
Subject: [PATCH] Add while-let.

Signed-off-by: Richard Newman <rnewman@twinql.com>
---
 src/datomish/util.cljc | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/datomish/util.cljc b/src/datomish/util.cljc
index 36099535..3dd51168 100644
--- a/src/datomish/util.cljc
+++ b/src/datomish/util.cljc
@@ -29,3 +29,9 @@
   (if ks
     (assoc m k (conj-in (get m k) ks v))
     (assoc m k (conj (get m k) v))))
+
+(defmacro while-let [binding & forms]
+  `(loop []
+     (when-let ~binding
+       ~@forms
+       (recur))))