From 9ac72cd37b852d9e415ea3aa66bc5cd2501edcc2 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 21 Jun 2013 04:39:16 +0200 Subject: [PATCH] Temporal change: CODE syntax almost compatible with compiler.lisp --- src/compiler-codegen.lisp | 4 ++++ 1 file changed, 4 insertions(+) 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 ";"))) -- 1.7.10.4