Mercurial > urweb
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 |