Fix the return value of map-into

diff --git a/src/js.lisp b/src/js.lisp
index b4b2b32..75af024 100644 (file)
--- a/src/js.lisp
+++ b/src/js.lisp
@@ -1123,7 +1123,7 @@ vice-versa.")
           (do ((,idx 0 (1+ ,idx)))
               ((>= ,idx (slot-value ,arrvar 'length)))
             (setf (aref ,arrvar ,idx) (,fn (aref ,arrvar ,idx)))))
-        (return array)))))
+        (return ,arrvar)))))
 
 (defjsmacro map (function array)
   "Call FUNCTION on each element in ARRAY and return the returned values in a new array."