Mercurial > urweb

comparison src/source_print.sml @ 71:6431b315a1e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Elaborate efold
author Adam Chlipala <adamc@hcoop.net>
date Thu, 26 Jun 2008 11:09:30 -0400
parents 9f89f0b00b84
children b4f2a258e52c
comparison
equal deleted inserted replaced
70:2e0f3b21fb85 71:6431b315a1e3
199 p_exp e]) xes, 199 p_exp e]) xes,
200 string "}"] 200 string "}"]
201 | EField (e, c) => box [p_exp' true e, 201 | EField (e, c) => box [p_exp' true e,
202 string ".", 202 string ".",
203 p_con' true c] 203 p_con' true c]
204 204 | EFold => string "fold"
205 205
206 and p_exp e = p_exp' false e 206 and p_exp e = p_exp' false e
207 207
208 fun p_sgn_item (sgi, _) = 208 fun p_sgn_item (sgi, _) =
209 case sgi of 209 case sgi of