Mercurial > urweb

diff src/source_print.sml @ 822:d4e811beb8eb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fn-pattern code in but not tested yet; hello compiles
author Adam Chlipala <adamc@hcoop.net>
date Thu, 28 May 2009 10:16:50 -0400
parents e2780d2f4afc
children 7f871c03e3a1
line wrap: on
line diff
--- a/src/source_print.sml	Tue May 26 12:25:06 2009 -0400
+++ b/src/source_print.sml	Thu May 28 10:16:50 2009 -0400
@@ -207,6 +207,12 @@
                  string "}"]
         end
 
+      | PAnnot (p, t) => box [p_pat p,
+                              space,
+                              string ":",
+                              space,
+                              p_con t]
+
 and p_pat x = p_pat' false x
 
 fun p_exp' par (e, _) =