@@ -609,6 +609,12 @@ inlineFunctions js =
609 JSReturn js@(JSNew "__IDRRT__Con" [JSNum _, JSArray vals])
609 JSReturn js@(JSNew "__IDRRT__Con" [JSNum _, JSArray vals])
611 | and $ map isJSIdent vals = Just js
611 | and $ map isJSIdent vals = Just js
613+ JSReturn js@(JSNew "__IDRRT__Cont" [JSFunction [] (
614+ JSReturn (JSApp (JSIdent _) args)
617+ | and $ map isJSIdent args = Just js
613 inlineAble' _ = Nothing
619 inlineAble' _ = Nothing