From: David Vázquez <davazp@gmail.com>
Date: Thu, 20 Jun 2013 13:31:26 +0000 (+0200)
Subject: Support 'throw' statement
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=00ba710e3c68fd667499a602bcead98400f1ac55;p=jscl.git

Support 'throw' statement
---

diff --git a/src/compiler-codegen.lisp b/src/compiler-codegen.lisp
index 1eabe21..5b8d028 100644
--- 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 ";")))))