Added doseq

src/com/reasonr/scriptjure.clj

@@ -65,7 +65,7 @@
 (defmethod emit :default [expr]
   (str expr))
 
-(def special-forms (set ['var '. 'if 'funcall 'fn 'set! 'return 'delete 'new 'do 'aget]))
+(def special-forms (set ['var '. 'if 'funcall 'fn 'set! 'return 'delete 'new 'do 'aget 'doseq]))
 
 (def infix-operators (set ['+ '- '/ '* '% '== '=== '< '> '<= '>= '!= '<< '>> '<<< '>>> '!== '& '| '&& '||]))
 
@@ -126,6 +126,13 @@
 (defmethod emit-special 'do [type [ do & exprs]]
   (emit-do exprs))
 
+(defmethod emit-special 'doseq [type [doseq bindings & body]]
+  (str "for (" (emit (first bindings)) " in " (second bindings) ") { \n"
+       (if-let [more (nnext bindings)]
+         (emit (list* 'doseq more body))
+         (emit-do body))
+       "\n }"))
+
 (defn emit-function [name sig body]
   (assert (or (symbol? name) (nil? name)))
   (assert (vector? sig))

test/test_scriptjure.clj

@@ -73,6 +73,12 @@
            (var y 4)
            (+ x y))) "var x = 3; var y = 4; (x + y);")))
 
+(deftest test-doseq
+  (is (= (strip-whitespace (js (doseq [i [1 2 3]] (foo i))))
+	 "for (i in [1 2 3]) { foo(i); }"))
+  (is (= (strip-whitespace (js (doseq [i [1 2 3] j [4 5]] (foo i j))))
+	 "for (i in [1 2 3]) { for (j in [4 5]) { foo(i, j); } }")))
+
 (deftest test-combine-forms
   (let [stuff (js* (do
                        (var x 3)