@@ -226,6 +226,10 @@ jsSubst var (x@(JSVar old) : xs) new
226jsSubst _ xs _ = xs
226jsSubst _ xs _ = xs
228optimizeJS :: JS -> JS
228optimizeJS :: JS -> JS
230+optimizeJS (JSApp (JSFunction [] (JSSeq ret)) []) =
231+ JSApp (JSFunction [] (JSSeq (map optimizeJS ret))) []
229optimizeJS (JSApp (JSFunction [arg] (JSReturn ret)) [val])
233optimizeJS (JSApp (JSFunction [arg] (JSReturn ret)) [val])
230 | JSNew con [tag, JSArray vals] <- ret =
234 | JSNew con [tag, JSArray vals] <- ret =
231 JSNew con [tag, JSArray $ jsSubst arg vals (optimizeJS val)]
235 JSNew con [tag, JSArray $ jsSubst arg vals (optimizeJS val)]