diff options
author | 2009-05-16 16:02:17 -0400 | |
---|---|---|
committer | 2009-05-16 16:02:17 -0400 | |
commit | da833d17ddc403e4cba138ddd0dde85bb03100f5 (patch) | |
tree | df44fd4952ee16f262cce3e4a063352e534aee25 /src/cjr.sml | |
parent | ac6a31d08025c413f89961a17b35321be8a41fc7 (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 |