@@ -15,16 +15,16 @@ import qualified Language.PureScript.Constants as C
1515tco :: AST -> AST
1616tco = everywhere convert where
1717 tcoVar :: Text -> Text
18− tcoVar arg = "$tco_var_" <> arg
18+ tcoVar arg = "_TCO_" <> arg <> "_"
1919
2020 copyVar :: Text -> Text
21− copyVar arg = "$copy_" <> arg
21+ copyVar arg = "_TCO_copy_" <> arg <> "_"
2222
2323 tcoDone :: Text
24− tcoDone = "$tco_done"
24+ tcoDone = "_TCO_done_"
2525
2626 tcoResult :: Text
27− tcoResult = "$tco_result"
27+ tcoResult = "_TCO_result_"
2828
2929 convert :: AST -> AST
3030 convert fn@(Function ss (Just name) args _)