diff src/source_print.sml @ 71:6431b315a1e3

Elaborate efold
author Adam Chlipala <adamc@hcoop.net>
date Thu, 26 Jun 2008 11:09:30 -0400
parents 9f89f0b00b84
children b4f2a258e52c
line wrap: on
line diff
--- a/src/source_print.sml	Thu Jun 26 10:02:34 2008 -0400
+++ b/src/source_print.sml	Thu Jun 26 11:09:30 2008 -0400
@@ -201,7 +201,7 @@
       | EField (e, c) => box [p_exp' true e,
                               string ".",
                               p_con' true c]
-
+      | EFold => string "fold"
 
 and p_exp e = p_exp' false e