comparison src/elab.sml @ 445:dfc8c991abd0

Replace 'with' with '++'
author Adam Chlipala <adamc@hcoop.net>
date Fri, 31 Oct 2008 09:30:22 -0400
parents b85e6ba56618
children b77863cd0be2
comparison
equal deleted inserted replaced
444:f45f23ae20ed 445:dfc8c991abd0
106 | ECApp of exp * con 106 | ECApp of exp * con
107 | ECAbs of explicitness * string * kind * exp 107 | ECAbs of explicitness * string * kind * exp
108 108
109 | ERecord of (con * exp * con) list 109 | ERecord of (con * exp * con) list
110 | EField of exp * con * { field : con, rest : con } 110 | EField of exp * con * { field : con, rest : con }
111 | EWith of exp * con * exp * { field : con, rest : con } 111 | EConcat of exp * con * exp * con
112 | ECut of exp * con * { field : con, rest : con } 112 | ECut of exp * con * { field : con, rest : con }
113 | EFold of kind 113 | EFold of kind
114 114
115 | ECase of exp * (pat * exp) list * { disc : con, result : con } 115 | ECase of exp * (pat * exp) list * { disc : con, result : con }
116 116