Merge branch 'loop-macro' into 'master'

FEATURE: Added Clojure-like loop macro!

See merge request andreyorst/fennel-cljlib!12

1 files changed, 18 insertions, 0 deletions

diff --git a/tests/macros.fnl b/tests/macros.fnl
index bef0390..cf5c09b 100644
--- a/tests/macros.fnl
+++ b/tests/macros.fnl
@@ -247,3 +247,21 @@
     (assert-eq 3 (select :# (try (values 1 2 3))))
     (assert-eq [1 2 3] [(try (values 1 2 3))])
     (assert-eq 6 (select :# (try (values 1 nil 3 nil nil nil))))))
+
+(deftest loop
+  (testing "loop macro"
+    (assert-eq
+     (loop [[first & rest] [1 2 3 4 5]
+            acc 0]
+       (if (= nil first)
+           acc
+           (recur rest (+ acc first))))
+     15)
+
+    (assert-eq
+     (loop [a 2
+            b (+ a 3)]
+       (if (= b 5)
+           (recur a (+ 1 b))
+           b))
+     6)))