Convert dataflow to use reader conditionals

aysylu · Jul 12, 2015 · 962d603 · 962d603
1 parent 2591683
commit 962d603
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 2 deletions.
diff --git a/scripts/test b/scripts/test
@@ -0,0 +1,7 @@
+#!/bin/bash
+
+set -e
+
+grench eval "(require 'bolth)"
+grench eval "(do (bolth/pretty-refresh) nil)"
+grench eval "(clojure.pprint/pprint (bolth/run-all-tests #\".*\" {:clear-screen true :warn-on-slow-test-limit-ms 10 :force-real-stdout true :show-slow-tests true}))"
diff --git a/src/loom/dataflow.clj b/src/loom/dataflow.clj
@@ -11,8 +11,11 @@
                 (set? start) start
                 (coll? start) (set start)
                 :else #{start})]
-    (loop [out-values {} 
-           queue (into clojure.lang.PersistentQueue/EMPTY start)]
+    (loop [out-values {}
+           queue (into
+                   #?(:clj  clojure.lang.PersistentQueue/EMPTY
+                      :cljs #queue [])
+                   start)]
       (let [node (peek queue)
             worklist (pop queue)
             in-value (join (mapv out-values (g/predecessors graph node)))