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