diff options
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 |