comparison src/elab.sml @ 339:075b36dbb1a4

Crud supports INSERT
author Adam Chlipala <adamc@hcoop.net>
date Sun, 14 Sep 2008 15:10:04 -0400
parents e976b187d73a
children b85e6ba56618
comparison
equal deleted inserted replaced
338:e976b187d73a 339:075b36dbb1a4
107 | ECApp of exp * con 107 | ECApp of exp * con
108 | ECAbs of explicitness * string * kind * exp 108 | ECAbs of explicitness * string * kind * exp
109 109
110 | ERecord of (con * exp * con) list 110 | ERecord of (con * exp * con) list
111 | EField of exp * con * { field : con, rest : con } 111 | EField of exp * con * { field : con, rest : con }
112 | EWith of exp * con * exp * { field : con, rest : con }
112 | ECut of exp * con * { field : con, rest : con } 113 | ECut of exp * con * { field : con, rest : con }
113 | EFold of kind 114 | EFold of kind
114 115
115 | ECase of exp * (pat * exp) list * { disc : con, result : con } 116 | ECase of exp * (pat * exp) list * { disc : con, result : con }
116 117