diff src/elab.sml @ 493:ae03d09043c1

Add CutMulti
author Adam Chlipala <adamc@hcoop.net>
date Tue, 11 Nov 2008 19:20:37 -0500
parents d34834af4512
children 44958d74c43f
line wrap: on
line diff
--- a/src/elab.sml	Tue Nov 11 18:39:38 2008 -0500
+++ b/src/elab.sml	Tue Nov 11 19:20:37 2008 -0500
@@ -110,6 +110,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 }