Allow interop forms on alet.

Fixes #48
funcool · Aug 1, 2017 · d673894 · d673894
1 parent 0b0a87e
commit d673894
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/src/promesa/core.cljc b/src/promesa/core.cljc
@@ -305,7 +305,9 @@
      (let [await# `await]
        (->> (reverse (partition 2 bindings))
             (reduce (fn [acc [l r]]
-                      (if (and (coll? r) (symbol? (first r)))
+                      (if (and (coll? r)
+                               (symbol? (first r))
+                               (not= "." (subs (name (first r)) 0 1)))
                         `(if (= ~await# ~(first r))
                            (bind ~(second r) (fn [~l] ~acc))
                            (let [~l ~r] ~acc))

diff --git a/test/promesa/core_tests.cljc b/test/promesa/core_tests.cljc
@@ -307,7 +307,8 @@
        (let [result (p/alet [a (p/await (future-ok 50 1))
                              b 2
                              c 3
-                             d (p/await (future-ok 100 4))]
+                             d (p/await (future-ok 100 4))
+                             e (.toString c)]
                       (+ a b c d))]
          (p/then result (fn [result]
                           (t/is (= result 10))