comparison src/elab.sml @ 29:537db4ee89f4

Translation to Cjr
author Adam Chlipala <adamc@hcoop.net>
date Tue, 10 Jun 2008 18:28:43 -0400
parents 4ab19c19665f
children 1c91c5e6840f
comparison
equal deleted inserted replaced
28:104d43266b33 29:537db4ee89f4
71 | EApp of exp * exp 71 | EApp of exp * exp
72 | EAbs of string * con * con * exp 72 | EAbs of string * con * con * exp
73 | ECApp of exp * con 73 | ECApp of exp * con
74 | ECAbs of explicitness * string * kind * exp 74 | ECAbs of explicitness * string * kind * exp
75 75
76 | ERecord of (con * exp) list 76 | ERecord of (con * exp * con) list
77 | EField of exp * con * { field : con, rest : con } 77 | EField of exp * con * { field : con, rest : con }
78 78
79 | EError 79 | EError
80 80
81 withtype exp = exp' located 81 withtype exp = exp' located