From: David Vázquez <davazp@gmail.com>
Date: Fri, 5 Jul 2013 16:35:27 +0000 (+0200)
Subject: Remove CODE and transactional support in codegen for it
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=2b13192a8855e3b59966b41d86f94b614cfafeba;p=jscl.git

Remove CODE and transactional support in codegen for it
---

diff --git a/src/compiler-codegen.lisp b/src/compiler-codegen.lisp
index d624b0e..9bb915d 100644
--- a/src/compiler-codegen.lisp
+++ b/src/compiler-codegen.lisp
@@ -211,9 +211,6 @@
   (let ((op1 (car args))
         (op2 (cadr args)))
     (case op
-      ;; Transactional compatible operator
-      (code
-       (js-format "~a" (apply #'code args)))
       ;; Accessors
       (property
        (js-expr (car args) 0)
@@ -389,8 +386,6 @@
            (js-format ";")))
         (t
          (case (car form)
-           (code
-            (js-format "~a" (apply #'code (cdr form))))
            (label
             (destructuring-bind (label &body body) (cdr form)
               (js-identifier label)
diff --git a/src/compiler.lisp b/src/compiler.lisp
index f34b1c1..30e430d 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -41,18 +41,6 @@
       (when after-last-p
         (collect element)))))
 
-(defun code (&rest args)
-  (mapconcat (lambda (arg)
-               (cond
-                 ((null arg) "")
-                 ((integerp arg) (integer-to-string arg))
-                 ((floatp arg) (float-to-string arg))
-                 ((stringp arg) arg)
-                 (t
-                  (with-output-to-string (*standard-output*)
-                    (js-expr arg)))))
-             args))
-
 ;;; Like CODE, but prefix each line with four spaces. Two versions
 ;;; of this function are available, because the Ecmalisp version is
 ;;; very slow and bootstraping was annoying.
@@ -1446,8 +1434,7 @@
        (let ((code (ls-compile sexp multiple-value-p)))
          `(progn
             ,@(get-toplevel-compilations)
-            (code ,code ";
-")))))))
+            ,code))))))
 
 (defun ls-compile-toplevel (sexp &optional multiple-value-p)
   (with-output-to-string (*standard-output*)