X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler-codegen.lisp;h=129f892988bc1a2a63941cde70e9a0e927015c4e;hb=9ac72cd37b852d9e415ea3aa66bc5cd2501edcc2;hp=f3b05cc09f2e1c0499dd3427857d598f978d2bdd;hpb=452123400b2a8123a445ccd274cc99a3fed1eea4;p=jscl.git

diff --git a/src/compiler-codegen.lisp b/src/compiler-codegen.lisp
index f3b05cc..129f892 100644
--- a/src/compiler-codegen.lisp
+++ b/src/compiler-codegen.lisp
@@ -211,6 +211,8 @@
   (let ((op1 (car args))
         (op2 (cadr args)))
     (case op
+      (code
+       (js-format "~a" (apply #'code args)))
       ;; Function call
       (call
        (js-expr (car args))
@@ -371,6 +373,8 @@
             (js-expr form)
             (js-format ";"))
           (case (car form)
+            (code
+             (js-format "~a" (apply #'code (cdr form))))
             (empty
              (unless (and (consp parent) (eq (car parent) 'group))
                (js-format ";")))