From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Mon, 19 Aug 2013 23:30:21 +0000 (+0200)
Subject: Fix MAP-FOR-IN access.
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=dea14bb78b0fc90032373212912a16ed1f6a4a29

Fix MAP-FOR-IN access.

Which should iterate over properties of a Javascript object.
---

diff --git a/src/compiler/compiler.lisp b/src/compiler/compiler.lisp
index a2e5dee..73223aa 100644
--- a/src/compiler/compiler.lisp
+++ b/src/compiler/compiler.lisp
@@ -1252,7 +1252,7 @@
          (g (if (=== (typeof f) "function") f (get f "fvalue")))
          (o ,object))
     (for-in (key o)
-            (call g ,(if *multiple-value-p* '|values| '|pv|) 1 (get o "key")))
+            (call g ,(if *multiple-value-p* '|values| '|pv|) 1 (property o key)))
     (return ,(convert nil))))
 
 (define-compilation %js-vref (var)