From 06624f3183f4d773cf1023cabe2e370ebba5dee1 Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Fri, 16 May 2025 08:24:59 -0700 Subject: Use code generation for printing the AST --- CPS.sml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'CPS.sml') 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 -- cgit v1.3.1