diff src/elab.sml @ 149:7420fa18d657

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