From: David Vázquez <davazp@gmail.com>
Date: Fri, 21 Jun 2013 02:39:16 +0000 (+0200)
Subject: Temporal change: CODE syntax almost compatible with compiler.lisp
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=9ac72cd37b852d9e415ea3aa66bc5cd2501edcc2;p=jscl.git

Temporal change: CODE syntax almost compatible with compiler.lisp
---

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 ";")))