From 98370da7e9f70e3d83f666019b765e15f617b846 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 7 Apr 2009 15:04:07 -0400
Subject: Enhance table sig item support and get demo compiling again

---
 src/source_print.sml | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'src/source_print.sml')

diff --git a/src/source_print.sml b/src/source_print.sml
index d1c9b6df..c145dc63 100644
--- a/src/source_print.sml
+++ b/src/source_print.sml
@@ -417,6 +417,17 @@ fun p_sgn_item (sgi, _) =
                               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,
-- 
cgit v1.2.3