Mercurial > urweb

diff src/expl_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 ae03d09043c1
children 588b9d16b00a
line wrap: on
line diff
--- a/src/expl_print.sml	Sat Feb 21 14:10:06 2009 -0500
+++ b/src/expl_print.sml	Sat Feb 21 15:33:20 2009 -0500
@@ -149,7 +149,7 @@
                                               string "++",
                                               space,
                                               p_con env c2])
-      | CFold _ => string "fold"
+      | CMap _ => string "map"
       | CUnit => string "()"
 
       | CTuple cs => box [string "(",