For loop
authorDavid Vázquez <davazp@gmail.com>
Mon, 24 Jun 2013 12:16:40 +0000 (14:16 +0200)
committerDavid Vázquez <davazp@gmail.com>
Mon, 24 Jun 2013 12:16:40 +0000 (14:16 +0200)
src/compiler-codegen.lisp

index 6a3abc9..27114b2 100644 (file)
                  (js-expr condition)
                  (js-format ")")
                  (js-stmt `(progn ,@body))))
                  (js-expr condition)
                  (js-format ")")
                  (js-stmt `(progn ,@body))))
+           (for
+            (destructuring-bind ((start condition step) &body body) (cdr form)
+              (js-format "for (")
+              (js-expr start)
+              (js-format ";")
+              (js-expr condition)
+              (js-format ";")
+              (js-expr step)
+              (js-format ")")
+              (js-stmt `(progn ,@body))))
            (try
             (destructuring-bind (&rest body) (cdr form)
               (js-format "try")
            (try
             (destructuring-bind (&rest body) (cdr form)
               (js-format "try")