@@ -822,19 +822,16 @@ optimizeRuntimeCalls fun tc js =
822822
823823 optTC tc@"__IDRRT__APPLYTC" =
824824 JSAlloc tc (Just $ JSFunction ["fn0", "arg0"] (
825− JSSeq [ JSAlloc "ev" $ Just (JSApp
826− (JSIdent "__IDRRT__EVALTC") [JSIdent "fn0"]
827− )
828− , JSAlloc "ret" $ Just (
825+ JSSeq [ JSAlloc "ret" $ Just (
829826 JSTernary (
830− (JSIdent "ev" `jsInstanceOf` jsCon) `jsAnd`
831− (hasProp "__IDRLT__APPLY" "ev")
827+ (JSIdent "fn0" `jsInstanceOf` jsCon) `jsAnd`
828+ (hasProp "__IDRLT__APPLY" "fn0")
832829 ) (JSApp
833830 (JSIndex
834831 (JSIdent "__IDRLT__APPLY")
835− (JSProj (JSIdent "ev") "tag")
832+ (JSProj (JSIdent "fn0") "tag")
836833 )
837− [JSIdent "fn0", JSIdent "arg0", JSIdent "ev"]
834+ [JSIdent "fn0", JSIdent "arg0", JSIdent "fn0"]
838835 ) JSNull
839836 )
840837 , JSWhile (JSIdent "ret" `jsInstanceOf` (JSIdent "__IDRRT__Cont")) (