diff options
| author | Rose Hogenson <rosehogenson@posteo.net> | 2025-05-16 08:24:59 -0700 |
|---|---|---|
| committer | Rose Hogenson <rosehogenson@posteo.net> | 2025-05-17 09:50:31 -0700 |
| commit | 06624f3183f4d773cf1023cabe2e370ebba5dee1 (patch) | |
| tree | 93742397b82037c81077507920096d5ac80d4e63 /CodeGen.sml | |
| parent | c2bb80335b590c9118bad0da1d4407942b3765de (diff) | |
| download | sml-06624f3183f4d773cf1023cabe2e370ebba5dee1.tar.zst | |
Use code generation for printing the AST
Diffstat (limited to 'CodeGen.sml')
| -rw-r--r-- | CodeGen.sml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |