diff src/core.sml @ 149:7420fa18d657

Record cut
author Adam Chlipala <adamc@hcoop.net>
date Thu, 24 Jul 2008 10:09:21 -0400
parents f0d3402184d1
children 80192edca30d
line wrap: on
line diff
--- a/src/core.sml	Tue Jul 22 19:12:25 2008 -0400
+++ b/src/core.sml	Thu Jul 24 10:09:21 2008 -0400
@@ -72,6 +72,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