Mercurial > urweb

diff src/mono_print.sml @ 29:537db4ee89f4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Translation to Cjr
author Adam Chlipala <adamc@hcoop.net>
date Tue, 10 Jun 2008 18:28:43 -0400
parents 4ab19c19665f
children 1c91c5e6840f
line wrap: on
line diff
--- a/src/mono_print.sml	Tue Jun 10 16:22:46 2008 -0400
+++ b/src/mono_print.sml	Tue Jun 10 18:28:43 2008 -0400
@@ -90,7 +90,7 @@
                                                p_exp (E.pushERel env x t) e])
 
       | ERecord xes => box [string "{",
-                            p_list (fn (x, e) =>
+                            p_list (fn (x, e, _) =>
                                        box [string x,
                                             space,
                                             string "=",