Mercurial > urweb

comparison src/source_print.sml @ 21:067029c748e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Beta reductions for expressions
author Adam Chlipala <adamc@hcoop.net>
date Sun, 08 Jun 2008 16:02:26 -0400
parents 1ab48e37d0ef
children e6ccf961d8a3
comparison
equal deleted inserted replaced
20:1ab48e37d0ef 21:067029c748e9
182 space, 182 space,
183 p_exp e]) 183 p_exp e])
184 184
185 | ERecord xes => box [string "{", 185 | ERecord xes => box [string "{",
186 p_list (fn (x, e) => 186 p_list (fn (x, e) =>
187 box [p_con x, 187 box [p_name x,
188 space, 188 space,
189 string "=", 189 string "=",
190 space, 190 space,
191 p_exp e]) xes, 191 p_exp e]) xes,
192 string "}"] 192 string "}"]