Mercurial > urweb
comparison src/core.sml @ 29:537db4ee89f4
Translation to Cjr
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 10 Jun 2008 18:28:43 -0400 |
parents | 4ab19c19665f |
children | 0a5c312de09a |
comparison
equal
deleted
inserted
replaced
28:104d43266b33 | 29:537db4ee89f4 |
---|---|
61 | EApp of exp * exp | 61 | EApp of exp * exp |
62 | EAbs of string * con * con * exp | 62 | EAbs of string * con * con * exp |
63 | ECApp of exp * con | 63 | ECApp of exp * con |
64 | ECAbs of string * kind * exp | 64 | ECAbs of string * kind * exp |
65 | 65 |
66 | ERecord of (con * exp) list | 66 | ERecord of (con * exp * con) list |
67 | EField of exp * con * { field : con, rest : con } | 67 | EField of exp * con * { field : con, rest : con } |
68 | 68 |
69 withtype exp = exp' located | 69 withtype exp = exp' located |
70 | 70 |
71 datatype decl' = | 71 datatype decl' = |