X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler.lisp;h=66844fb5694909487e35a79975111f7fee2c075d;hb=9f8ed4bbc70fe2171bf116d60b80fed19fdef444;hp=a806cf3d734a0f1779ebbb089a822234f787bc18;hpb=2928172fb84644c51136e78d6c3e037d6e9f961d;p=jscl.git

diff --git a/src/compiler.lisp b/src/compiler.lisp
index a806cf3..66844fb 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -54,11 +54,6 @@
                     (js-expr arg)))))
              args))
 
-;;; Wrap X with a Javascript code to convert the result from
-;;; Javascript generalized booleans to T or NIL.
-(defun js!bool (x)
-  `(if ,x ,(ls-compile t) ,(ls-compile nil)))
-
 ;;; Concatenate the arguments and wrap them with a self-calling
 ;;; Javascript anonymous function. It is used to make some Javascript
 ;;; statements valid expressions and provide a private scope as well.
@@ -1021,7 +1016,7 @@
   `(define-raw-builtin ,op (x &rest args)
      (let ((args (cons x args)))
        (variable-arity args
-	 (js!bool (comparison-conjuntion args ',sym))))))
+	 `(bool ,(comparison-conjuntion args ',sym))))))
 
 (define-builtin-comparison > >)
 (define-builtin-comparison < <)