From 6198cdd1a69a48dbf1b194a6099f0537bef16633 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 23 Jun 2013 02:27:48 +0200 Subject: [PATCH] Migrate IN --- src/compiler.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/compiler.lisp b/src/compiler.lisp index 224d237..7d3f60c 100644 --- a/src/compiler.lisp +++ b/src/compiler.lisp @@ -1335,11 +1335,11 @@ (js!bool `(=== (typeof ,x) "object"))) (define-builtin lisp-to-js (x) `(call lisp_to_js ,x)) -(define-builtin js-to-lisp (x) `(code js_to_lisp ,x)) +(define-builtin js-to-lisp (x) `(call js_to_lisp ,x)) (define-builtin in (key object) - (js!bool `(code "(xstring(" ,key ") in (" ,object "))"))) + (js!bool `(in (call xstring ,key) ,object))) (define-builtin map-for-in (function object) (js!selfcall -- 1.7.10.4