Mercurial > urweb

diff src/source_print.sml @ 706:1fb318c17546

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Enhance table sig item support and get demo compiling again
author Adam Chlipala <adamc@hcoop.net>
date Tue, 07 Apr 2009 15:04:07 -0400
parents 70cbdcf5989b
children d8217b4cb617
line wrap: on
line diff
--- a/src/source_print.sml	Tue Apr 07 14:11:32 2009 -0400
+++ b/src/source_print.sml	Tue Apr 07 15:04:07 2009 -0400
@@ -417,6 +417,17 @@
                               string ":",
                               space,
                               p_con c]
+      | SgiTable (x, c, e) => box [string "table",
+                                space,
+                                string x,
+                                space,
+                                string ":",
+                                space,
+                                p_con c,
+                                space,
+                                string "constraints",
+                                space,
+                                p_exp e]
       | SgiStr (x, sgn) => box [string "structure",
                                 space,
                                 string x,