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 --- CodeGen.sml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'CodeGen.sml') diff --git a/CodeGen.sml b/CodeGen.sml index 0bd86be..04b2774 100644 --- a/CodeGen.sml +++ b/CodeGen.sml @@ -175,7 +175,7 @@ struct Syntax.OWrite (translate ptr, translateVal off, translateVal len) :: go k | Syntax.CPrimop (Syntax.PWriteErr, [Syntax.VVar ptr, off, len], _, [k]) => Syntax.OWriteErr (translate ptr, translateVal off, translateVal len) :: go k - | _ => raise Fail ("malformed CPS:\n" ^ Syntax.cexpToString expr) + | _ => raise Fail ("malformed CPS:\n" ^ ShowSyntax.cexpToString expr) in go expr end end -- cgit v1.3.1