@@ -144,11 +144,11 @@ extendObj obj sts = iife
144144 objAssign = JSVariableIntroduction newObj (Just $ JSObjectLiteral [])
145145 copy = JSForIn key obj test
146146 (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)
148148 test = JSBlock [JSIfElse cond assign Nothing]
149149 cond = JSApp (JSAccessor "hasOwnProperty" obj) [JSVar key]
150150 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
152152 ret = [JSReturn (JSVar newObj)]
153153
154154-- |