@@ -1128,6 +1128,15 @@ evalCons js =
1128 JSReturn (JSIdent name)
1128 JSReturn (JSIdent name)
1129 )]) = JSIdent name
1129 )]) = JSIdent name
1131+ match (JSNew "__IDRRT__Cont" [JSFunction [] (
1132+ JSReturn ret@(JSNew "__IDRRT__Con" [_, _, _, JSArray args])
1134+ | all collapsable args = ret
1136+ collapsable :: JS -> Bool
1137+ collapsable (JSIdent _) = True
1138+ collapsable js = isJSConstant (map fst cons) js
1131 match js = transformJS match js
1140 match js = transformJS match js