Mercurial > urweb

diff src/mono_print.sml @ 283:c0e4ac23522d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
'error' function
author Adam Chlipala <adamc@hcoop.net>
date Sun, 07 Sep 2008 10:02:27 -0400
parents 09c66a30ef32
children 4260ad920c36
line wrap: on
line diff
--- a/src/mono_print.sml	Sun Sep 07 09:28:13 2008 -0400
+++ b/src/mono_print.sml	Sun Sep 07 10:02:27 2008 -0400
@@ -173,6 +173,15 @@
                                                                               space,
                                                                               p_exp (E.patBinds env p) e]) pes])
 
+      | EError (e, t) => box [string "(error",
+                              space,
+                              p_exp env e,
+                              space,
+                              string ":",
+                              space,
+                              p_typ env t,
+                              string ")"]
+
       | EStrcat (e1, e2) => box [p_exp' true env e1,
                                  space,
                                  string "^",