From 768dfadfe4717b0c3f7b207a4980c78288b44a93 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 10 Jul 2008 10:11:35 -0400
Subject: page declaration, up through monoize

---
 src/expl_print.sml | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/expl_print.sml')

diff --git a/src/expl_print.sml b/src/expl_print.sml
index 447845a2..c891528f 100644
--- a/src/expl_print.sml
+++ b/src/expl_print.sml
@@ -392,6 +392,12 @@ fun p_decl env ((d, _) : decl) =
                                     string ":",
                                     space,
                                     p_sgn env sgn]
+      | 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
-- 
cgit v1.2.3