Mercurial > urweb

comparison src/elab_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
197 string "=>", 197 string "=>",
198 space, 198 space,
199 p_exp (E.pushCRel env x k) e]) 199 p_exp (E.pushCRel env x k) e])
200 200
201 | ERecord xes => box [string "{", 201 | ERecord xes => box [string "{",
202 p_list (fn (x, e) => 202 p_list (fn (x, e, _) =>
203 box [p_name env x, 203 box [p_name env x,
204 space, 204 space,
205 string "=", 205 string "=",
206 space, 206 space,
207 p_exp env e]) xes, 207 p_exp env e]) xes,