Mercurial > urweb

diff src/flat.sml @ 29:537db4ee89f4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Translation to Cjr
author Adam Chlipala <adamc@hcoop.net>
date Tue, 10 Jun 2008 18:28:43 -0400
parents 4ab19c19665f
children 198172560b73
line wrap: on
line diff
--- a/src/flat.sml	Tue Jun 10 16:22:46 2008 -0400
+++ b/src/flat.sml	Tue Jun 10 18:28:43 2008 -0400
@@ -30,7 +30,8 @@
 type 'a located = 'a ErrorMsg.located
 
 datatype typ' =
-         TFun of typ * typ
+         TTop
+       | TFun of typ * typ
        | TCode of typ * typ
        | TRecord of (string * typ) list
        | TNamed of int
@@ -44,10 +45,10 @@
        | ECode of int
        | EApp of exp * exp
 
-       | ERecord of (string * exp) list
+       | ERecord of (string * exp * typ) list
        | EField of exp * string
 
-       | ELet of (string * exp) list * exp
+       | ELet of (string * typ * exp) list * exp
 
 withtype exp = exp' located