Mercurial > urweb

diff src/source_print.sml @ 629:e68de2a5506b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Top.Fold.concat elaborates
author Adam Chlipala <adamc@hcoop.net>
date Tue, 24 Feb 2009 13:46:08 -0500
parents 12b73f3c108e
children 70cbdcf5989b
line wrap: on
line diff
--- a/src/source_print.sml	Tue Feb 24 12:01:24 2009 -0500
+++ b/src/source_print.sml	Tue Feb 24 13:46:08 2009 -0500
@@ -267,6 +267,9 @@
                                                    string "=>",
                                                    space,
                                                    p_exp e])
+      | EDisjointApp e => parenIf par (box [p_exp e,
+                                            space,
+                                            string "!"])
 
       | ERecord xes => box [string "{",
                             p_list (fn (x, e) =>