@@ -822,19 +822,16 @@ optimizeRuntimeCalls fun tc js =
823 optTC tc@"__IDRRT__APPLYTC" =
823 optTC tc@"__IDRRT__APPLYTC" =
824 JSAlloc tc (Just $ JSFunction ["fn0", "arg0"] (
824 JSAlloc tc (Just $ JSFunction ["fn0", "arg0"] (
825− JSSeq [ JSAlloc "ev" $ Just (JSApp
825+ JSSeq [ JSAlloc "ret" $ Just (
826− (JSIdent "__IDRRT__EVALTC") [JSIdent "fn0"]
828− , JSAlloc "ret" $ Just (
829 JSTernary (
826 JSTernary (
830− (JSIdent "ev" `jsInstanceOf` jsCon) `jsAnd`
827+ (JSIdent "fn0" `jsInstanceOf` jsCon) `jsAnd`
831− (hasProp "__IDRLT__APPLY" "ev")
828+ (hasProp "__IDRLT__APPLY" "fn0")
834 (JSIdent "__IDRLT__APPLY")
831 (JSIdent "__IDRLT__APPLY")
835− (JSProj (JSIdent "ev") "tag")
832+ (JSProj (JSIdent "fn0") "tag")
837− [JSIdent "fn0", JSIdent "arg0", JSIdent "ev"]
834+ [JSIdent "fn0", JSIdent "arg0", JSIdent "fn0"]
840 , JSWhile (JSIdent "ret" `jsInstanceOf` (JSIdent "__IDRRT__Cont")) (
837 , JSWhile (JSIdent "ret" `jsInstanceOf` (JSIdent "__IDRRT__Cont")) (