Support 'throw' statement

diff --git a/src/compiler-codegen.lisp b/src/compiler-codegen.lisp
index 1eabe21..5b8d028 100644 (file)
--- a/src/compiler-codegen.lisp
+++ b/src/compiler-codegen.lisp
@@ -416,6 +416,11 @@
               (js-expr condition)
               (js-format ")")
               (js-stmt `(group ,@body))))
+        (throw
+            (destructuring-bind (object) (cdr form)
+              (js-format "throw ")
+              (js-expr object)
+              (js-format ";")))
         (t
          (js-expr form)
          (js-format ";")))))