diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-05-16 16:02:17 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-16 16:02:17 -0400 |
commit | 2396dd1bd2bdaeb7608d88bbb2f890b5788852c0 (patch) | |
tree | df44fd4952ee16f262cce3e4a063352e534aee25 /src/cjr.sml | |
parent | 30b78a96ae699fa2282c07a2dbf3e6303f99e32c (diff) |
Mutual datatypes through Cjrize
Diffstat (limited to 'src/cjr.sml')
-rw-r--r-- | src/cjr.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/cjr.sml b/src/cjr.sml index 6728e5c8..2b81de1a 100644 --- a/src/cjr.sml +++ b/src/cjr.sml @@ -100,7 +100,7 @@ withtype exp = exp' located datatype decl' = DStruct of int * (string * typ) list - | DDatatype of datatype_kind * string * int * (string * int * typ option) list + | DDatatype of (datatype_kind * string * int * (string * int * typ option) list) list | DDatatypeForward of datatype_kind * string * int | DVal of string * int * typ * exp | DFun of string * int * (string * typ) list * typ * exp |