From: David Vázquez <davazp@gmail.com>
Date: Sun, 23 Jun 2013 00:27:48 +0000 (+0200)
Subject: Migrate IN
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=6198cdd1a69a48dbf1b194a6099f0537bef16633;p=jscl.git

Migrate IN
---

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