Mercurial > urweb

comparison src/mono_print.sml @ 290:df00701f2323

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
'read' type class
author Adam Chlipala <adamc@hcoop.net>
date Sun, 07 Sep 2008 11:53:30 -0400
parents 4260ad920c36
children 6e665c7c96f6
comparison
equal deleted inserted replaced
289:0cc956a3216f 290:df00701f2323
130 | ENamed n => p_enamed env n 130 | ENamed n => p_enamed env n
131 | ECon (_, pc, NONE) => p_patCon env pc 131 | ECon (_, pc, NONE) => p_patCon env pc
132 | ECon (_, pc, SOME e) => parenIf par (box [p_patCon env pc, 132 | ECon (_, pc, SOME e) => parenIf par (box [p_patCon env pc,
133 space, 133 space,
134 p_exp' true env e]) 134 p_exp' true env e])
135 | ESome (_, e) => parenIf par (box [string "Some",
136 space,
137 p_exp' true env e])
135 138
136 | EFfi (m, x) => box [string "FFI(", string m, string ".", string x, string ")"] 139 | EFfi (m, x) => box [string "FFI(", string m, string ".", string x, string ")"]
137 | EFfiApp (m, x, es) => box [string "FFI(", 140 | EFfiApp (m, x, es) => box [string "FFI(",
138 string m, 141 string m,
139 string ".", 142 string ".",