Mercurial > urweb

diff src/flat_print.sml @ 101:717b6f8d8505

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First executable generated
author Adam Chlipala <adamc@hcoop.net>
date Thu, 10 Jul 2008 11:13:49 -0400
parents 198172560b73
children 5f04adf47f48
line wrap: on
line diff
--- a/src/flat_print.sml	Thu Jul 10 10:11:35 2008 -0400
+++ b/src/flat_print.sml	Thu Jul 10 11:13:49 2008 -0400
@@ -194,6 +194,20 @@
 
         end
 
+      | DPage (xcs, e) => box [string "page",
+                               string "[",
+                               p_list (fn (x, t) =>
+                                          box [string x,
+                                               space,
+                                               string ":",
+                                               space,
+                                               p_typ env t]) xcs,
+                               string "]",
+                               space,
+                               string "=",
+                               space,
+                               p_exp env e]
+
 fun p_file env file =
     let
         val (pds, _) = ListUtil.foldlMap (fn (d, env) =>