summaryrefslogtreecommitdiffstats
path: root/CPS.sml
diff options
context:
space:
mode:
authorRose Hogenson <rosehogenson@posteo.net>2025-05-16 08:24:59 -0700
committerRose Hogenson <rosehogenson@posteo.net>2025-05-17 09:50:31 -0700
commit06624f3183f4d773cf1023cabe2e370ebba5dee1 (patch)
tree93742397b82037c81077507920096d5ac80d4e63 /CPS.sml
parentc2bb80335b590c9118bad0da1d4407942b3765de (diff)
downloadsml-06624f3183f4d773cf1023cabe2e370ebba5dee1.tar.zst
Use code generation for printing the AST
Diffstat (limited to 'CPS.sml')
-rw-r--r--CPS.sml2
1 files changed, 1 insertions, 1 deletions
diff --git a/CPS.sml b/CPS.sml
index 13dbbe8..e48cfcf 100644
--- a/CPS.sml
+++ b/CPS.sml
@@ -127,7 +127,7 @@ struct
, toCPS expr (fn v => go v sortedArms contFunc)
)
end
- | _ => raise Fail ("malformed expression " ^ Syntax.lexpToString e)
+ | _ => raise Fail ("malformed expression " ^ ShowSyntax.lexpToString e)
fun hoist (expr : Syntax.cexp) : Syntax.cexp =
let