Mercurial > urweb

comparison src/mono_print.sml @ 179:3bbed533fbd2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cases through monoize
author Adam Chlipala <adamc@hcoop.net>
date Sun, 03 Aug 2008 10:48:36 -0400
parents eb3f9913bf31
children d11754ffe252
comparison
equal deleted inserted replaced
178:eb3f9913bf31 179:3bbed533fbd2
167 p_list_sep (box [space, string "|", space]) 167 p_list_sep (box [space, string "|", space])
168 (fn (p, e) => box [p_pat env p, 168 (fn (p, e) => box [p_pat env p,
169 space, 169 space,
170 string "=>", 170 string "=>",
171 space, 171 space,
172 p_exp env e]) pes]) 172 p_exp (E.patBinds env p) e]) pes])
173 173
174 | EStrcat (e1, e2) => box [p_exp' true env e1, 174 | EStrcat (e1, e2) => box [p_exp' true env e1,
175 space, 175 space,
176 string "^", 176 string "^",
177 space, 177 space,