@@ -226,6 +226,10 @@ jsSubst var (x@(JSVar old) : xs) new
226226jsSubst _ xs _ = xs
227227
228228optimizeJS :: JS -> JS
229+
230+optimizeJS (JSApp (JSFunction [] (JSSeq ret)) []) =
231+ JSApp (JSFunction [] (JSSeq (map optimizeJS ret))) []
232+
229233optimizeJS (JSApp (JSFunction [arg] (JSReturn ret)) [val])
230234 | JSNew con [tag, JSArray vals] <- ret =
231235 JSNew con [tag, JSArray $ jsSubst arg vals (optimizeJS val)]