Mercurial > urweb

diff src/source_print.sml @ 459:f542bc3133dc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cookies through elaborate
author Adam Chlipala <adamc@hcoop.net>
date Thu, 06 Nov 2008 10:29:55 -0500
parents 86c063fedc4d
children d34834af4512
line wrap: on
line diff
--- a/src/source_print.sml	Thu Nov 06 10:04:03 2008 -0500
+++ b/src/source_print.sml	Thu Nov 06 10:29:55 2008 -0500
@@ -428,6 +428,13 @@
                                 string "=",
                                 space,
                                 p_con c]
+      | SgiCookie (x, c) => box [string "cookie",
+                                 space,
+                                 string x,
+                                 space,
+                                 string ":",
+                                 space,
+                                 p_con c]
 
 and p_sgn (sgn, _) =
     case sgn of
@@ -579,6 +586,14 @@
                             space,
                             string s]
 
+      | DCookie (x, c) => box [string "cookie",
+                               space,
+                               string x,
+                               space,
+                               string ":",
+                               space,
+                               p_con c]
+
 and p_str (str, _) =
     case str of
         StrConst ds => box [string "struct",