diff src/elab_print.sml @ 100:f0f59e918cac

page declaration, up through monoize
author Adam Chlipala <adamc@hcoop.net>
date Thu, 10 Jul 2008 10:11:35 -0400
parents 7bab29834cd6
children 813e5a52063d
line wrap: on
line diff
--- a/src/elab_print.sml	Thu Jul 10 09:24:43 2008 -0400
+++ b/src/elab_print.sml	Thu Jul 10 10:11:35 2008 -0400
@@ -450,6 +450,12 @@
                                      string "~",
                                      space,
                                      p_con env c2]
+      | DPage (c, e) => box [string "page",
+                             p_con env c,
+                             space,
+                             string "=",
+                             space,
+                             p_exp env e]
 
 and p_str env (str, _) =
     case str of