diff src/expl.sml @ 149:7420fa18d657

Record cut
author Adam Chlipala <adamc@hcoop.net>
date Thu, 24 Jul 2008 10:09:21 -0400
parents 541282b81454
children 06a98129b23f
line wrap: on
line diff
--- a/src/expl.sml	Tue Jul 22 19:12:25 2008 -0400
+++ b/src/expl.sml	Thu Jul 24 10:09:21 2008 -0400
@@ -71,6 +71,7 @@
 
        | ERecord of (con * exp * con) list
        | EField of exp * con * { field : con, rest : con }
+       | ECut of exp * con * { field : con, rest : con }
        | EFold of kind
 
        | EWrite of exp