Mercurial > urweb

comparison src/source_print.sml @ 14:f1c36df29ed7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Primitive type constants
author Adam Chlipala <adamc@hcoop.net>
date Sun, 08 Jun 2008 12:27:08 -0400
parents d89477f07c1e
children 9a578171de9e
comparison
equal deleted inserted replaced
13:6049e2193bf2 14:f1c36df29ed7
129 string ":", 129 string ":",
130 space, 130 space,
131 p_con t, 131 p_con t,
132 string ")"] 132 string ")"]
133 133
134 | EPrim p => Prim.p_t p
134 | EVar s => string s 135 | EVar s => string s
135 | EApp (e1, e2) => parenIf par (box [p_exp e1, 136 | EApp (e1, e2) => parenIf par (box [p_exp e1,
136 space, 137 space,
137 p_exp' true e2]) 138 p_exp' true e2])
138 | EAbs (x, NONE, e) => parenIf par (box [string "fn", 139 | EAbs (x, NONE, e) => parenIf par (box [string "fn",