diff src/core.sml @ 493:ae03d09043c1

Add CutMulti
author Adam Chlipala <adamc@hcoop.net>
date Tue, 11 Nov 2008 19:20:37 -0500
parents 5c9606deacb6
children 0dd40b6bfdf3
line wrap: on
line diff
--- a/src/core.sml	Tue Nov 11 18:39:38 2008 -0500
+++ b/src/core.sml	Tue Nov 11 19:20:37 2008 -0500
@@ -95,6 +95,7 @@
        | EField of exp * con * { field : con, rest : con }
        | EConcat of exp * con * exp * con
        | ECut of exp * con * { field : con, rest : con }
+       | ECutMulti of exp * con * { rest : con }
        | EFold of kind
 
        | ECase of exp * (pat * exp) list * { disc : con, result : con }