Mercurial > urweb
diff 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 |
line wrap: on
line diff
--- a/src/core.sml Tue Jun 10 16:22:46 2008 -0400 +++ b/src/core.sml Tue Jun 10 18:28:43 2008 -0400 @@ -63,7 +63,7 @@ | ECApp of exp * con | ECAbs of string * kind * exp - | ERecord of (con * exp) list + | ERecord of (con * exp * con) list | EField of exp * con * { field : con, rest : con } withtype exp = exp' located