@@ -144,11 +144,11 @@ extendObj obj sts = iife
144 objAssign = JSVariableIntroduction newObj (Just $ JSObjectLiteral [])
144 objAssign = JSVariableIntroduction newObj (Just $ JSObjectLiteral [])
145 copy = JSForIn key obj test
145 copy = JSForIn key obj test
146 (newObj, key) = runGen ["newObj", "key"] ((,) <$> fresh <*> fresh)
146 (newObj, key) = runGen ["newObj", "key"] ((,) <$> fresh <*> fresh)
147− --(newObj, key) = runGen (map identToJs (unusedNames obj)) ((,) <$> fresh <*> fresh)
147+ --(newObj, key) = runGen (map identToJs (unusedNames block)) ((,) <$> fresh <*> fresh)
148 test = JSBlock [JSIfElse cond assign Nothing]
148 test = JSBlock [JSIfElse cond assign Nothing]
149 cond = JSApp (JSAccessor "hasOwnProperty" obj) [JSVar key]
149 cond = JSApp (JSAccessor "hasOwnProperty" obj) [JSVar key]
150 assign = JSBlock [JSAssignment (JSIndexer (JSVar key) (JSVar newObj)) (JSIndexer (JSVar key) obj)]
150 assign = JSBlock [JSAssignment (JSIndexer (JSVar key) (JSVar newObj)) (JSIndexer (JSVar key) obj)]
151− extensions = map (uncurry JSAssignment . first ((`JSIndexer` JSVar newObj) . JSVar)) sts
151+ extensions = map (uncurry JSAssignment . first (`JSAccessor` JSVar newObj)) sts
152 ret = [JSReturn (JSVar newObj)]
152 ret = [JSReturn (JSVar newObj)]