Mercurial > urweb

diff src/source_print.sml @ 12:d89477f07c1e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fun with records
author Adam Chlipala <adamc@hcoop.net>
date Fri, 28 Mar 2008 17:34:57 -0400
parents a455a9f85cc3
children f1c36df29ed7
line wrap: on
line diff
--- a/src/source_print.sml	Fri Mar 28 15:20:46 2008 -0400
+++ b/src/source_print.sml	Fri Mar 28 17:34:57 2008 -0400
@@ -170,6 +170,19 @@
                                                   space,
                                                   p_exp e])
 
+      | ERecord xes => box [string "{",
+                            p_list (fn (x, e) =>
+                                       box [p_con x,
+                                            space,
+                                            string "=",
+                                            space,
+                                            p_exp e]) xes,
+                            string "}"]
+      | EField (e, c) => box [p_exp' true e,
+                              string ".",
+                              p_con' true c]
+
+
 and p_exp e = p_exp' false e
 
 fun p_decl ((d, _) : decl) =