Mercurial > urweb

comparison src/elab_print.sml @ 621:8998114760c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"Hello world" compiles, after replacing type-level fold with map
author Adam Chlipala <adamc@hcoop.net>
date Sat, 21 Feb 2009 15:33:20 -0500
parents 44958d74c43f
children 588b9d16b00a
comparison
equal deleted inserted replaced
620:d828b143e147 621:8998114760c1
165 | CConcat (c1, c2) => parenIf par (box [p_con' true env c1, 165 | CConcat (c1, c2) => parenIf par (box [p_con' true env c1,
166 space, 166 space,
167 string "++", 167 string "++",
168 space, 168 space,
169 p_con env c2]) 169 p_con env c2])
170 | CFold _ => string "fold" 170 | CMap _ => string "map"
171 171
172 | CUnit => string "()" 172 | CUnit => string "()"
173 173
174 | CTuple cs => box [string "(", 174 | CTuple cs => box [string "(",
175 p_list (p_con env) cs, 175 p_list (p_con env) cs,