Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
28:104d43266b33 29:537db4ee89f4
88 string "=>", 88 string "=>",
89 space, 89 space,
90 p_exp (E.pushERel env x t) e]) 90 p_exp (E.pushERel env x t) e])
91 91
92 | ERecord xes => box [string "{", 92 | ERecord xes => box [string "{",
93 p_list (fn (x, e) => 93 p_list (fn (x, e, _) =>
94 box [string x, 94 box [string x,
95 space, 95 space,
96 string "=", 96 string "=",
97 space, 97 space,
98 p_exp env e]) xes, 98 p_exp env e]) xes,