diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-13 10:17:06 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-13 10:17:06 -0400 |
| commit | 3316f3c317e587a5fc2ecf38f061a72b48e3b94e (patch) | |
| tree | fae8c92c195e5f7976352a337017d285e729f859 /src/cjr.sml | |
| parent | 7281dbb2fc2a5f50c1049bad629f330e2ff3f7ca (diff) | |
Remove closure conversion in favor of zany fun with modules, which also replaces 'page'
Diffstat (limited to 'src/cjr.sml')
| -rw-r--r-- | src/cjr.sml | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/src/cjr.sml b/src/cjr.sml index d22b38f4..a47c77fe 100644 --- a/src/cjr.sml +++ b/src/cjr.sml @@ -31,8 +31,7 @@ type 'a located = 'a ErrorMsg.located datatype typ' = TTop - | TFun - | TCode of typ * typ + | TFun of typ * typ | TRecord of int | TNamed of int | TFfi of string * string @@ -45,14 +44,11 @@ datatype exp' = | ENamed of int | EFfi of string * string | EFfiApp of string * string * exp list - | ECode of int | EApp of exp * exp | ERecord of int * (string * exp) list | EField of exp * string - | ELet of (string * typ * exp) list * exp - | EWrite of exp | ESeq of exp * exp @@ -61,10 +57,10 @@ withtype exp = exp' located datatype decl' = DStruct of int * (string * typ) list | DVal of string * int * typ * exp - | DFun of int * string * typ * typ * exp + | DFun of string * int * string * typ * typ * exp withtype decl = decl' located -type file = decl list * ((string * typ) list * exp) list +type file = decl list * int list end |