Expand lazy seqs as arrays inside clj blocks

purcell · Jul 26, 2010 · 8a02445 · 8a02445
1 parent c5dbd05
commit 8a02445
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/src/com/reasonr/scriptjure.clj b/src/com/reasonr/scriptjure.clj
@@ -190,8 +190,8 @@
 (defmethod emit clojure.lang.IPersistentVector [expr]
   (str "[" (str/join ", " (map emit expr)) "]"))
 
-;(defmethod emit clojure.lang.LazySeq [expr]
-;  (emit (into [] expr)))
+(defmethod emit clojure.lang.LazySeq [expr]
+  (emit (into [] expr)))
 
 (defmethod emit clojure.lang.IPersistentMap [expr]
   (letfn [(json-pair [pair] (str (emit (key pair)) ": " (emit (val pair))))]

diff --git a/test/test_scriptjure.clj b/test/test_scriptjure.clj
@@ -107,6 +107,10 @@
                    (var y 4)))]
     (is (= (js (clj one)) (js (clj two))))))
 
+(deftest test-lazy-seq-expands-to-array-inside-clj
+  (let [vals (range 20)]
+    (is (= (js (clj vals)) "[0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19]"))))
+
 (deftest test-cljs
   (let [foo 42]
     (is (= (cljs foo) (js (clj foo))))))