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