comparison 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
comparison
equal deleted inserted replaced
148:15e8b9775539 149:7420fa18d657
69 | ECApp of exp * con 69 | ECApp of exp * con
70 | ECAbs of string * kind * exp 70 | ECAbs of string * kind * exp
71 71
72 | ERecord of (con * exp * con) list 72 | ERecord of (con * exp * con) list
73 | EField of exp * con * { field : con, rest : con } 73 | EField of exp * con * { field : con, rest : con }
74 | ECut of exp * con * { field : con, rest : con }
74 | EFold of kind 75 | EFold of kind
75 76
76 | EWrite of exp 77 | EWrite of exp
77 78
78 withtype exp = exp' located 79 withtype exp = exp' located