Mercurial > urweb

diff src/source_print.sml @ 100:f0f59e918cac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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/source_print.sml	Thu Jul 10 09:24:43 2008 -0400
+++ b/src/source_print.sml	Thu Jul 10 10:11:35 2008 -0400
@@ -418,6 +418,10 @@
                                          space,
                                          p_list_sep (string ".") string (m :: ms)]
 
+      | DPage e => box [string "page",
+                        space,
+                        p_exp e]
+
 and p_str (str, _) =
     case str of
         StrConst ds => box [string "struct",