From 6221b6afc66203e2e68be6fa142558e69a7d31b2 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 23 Jun 2013 21:34:17 +0200 Subject: [PATCH] Migrate EQ, CHAR-UPCASE and CHAR-DOWNCASE --- src/compiler.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/compiler.lisp b/src/compiler.lisp index 1d9489b..57a7e79 100644 --- a/src/compiler.lisp +++ b/src/compiler.lisp @@ -1160,7 +1160,7 @@ `(call |make_lisp_string| (call (get ,x "toString")))) (define-builtin eq (x y) - (js!bool `(code "(" ,x " === " ,y ")"))) + (js!bool `(=== ,x ,y))) (define-builtin char-code (x) (type-check (("x" "string" x)) @@ -1177,10 +1177,10 @@ "return (typeof(" x ") == \"string\") && (x.length == 1 || x.length == 2);"))) (define-builtin char-upcase (x) - `(code "safe_char_upcase(" ,x ")")) + `(call |safe_char_upcase| ,x)) (define-builtin char-downcase (x) - `(code "safe_char_downcase(" ,x ")")) + `(call |safe_char_downcase| ,x)) (define-builtin stringp (x) (js!bool -- 1.7.10.4