comparison src/cjr.sml @ 165:e52dfb1e6b19

Datatypes through cjrize, modulo decoding
author Adam Chlipala <adamc@hcoop.net>
date Tue, 29 Jul 2008 13:50:53 -0400
parents f0d3402184d1
children a991431b77eb
comparison
equal deleted inserted replaced
164:6847741e1f5f 165:e52dfb1e6b19
54 54
55 withtype exp = exp' located 55 withtype exp = exp' located
56 56
57 datatype decl' = 57 datatype decl' =
58 DStruct of int * (string * typ) list 58 DStruct of int * (string * typ) list
59 | DDatatype of string * int * (string * int * typ option) list
59 | DVal of string * int * typ * exp 60 | DVal of string * int * typ * exp
60 | DFun of string * int * (string * typ) list * typ * exp 61 | DFun of string * int * (string * typ) list * typ * exp
61 | DFunRec of (string * int * (string * typ) list * typ * exp) list 62 | DFunRec of (string * int * (string * typ) list * typ * exp) list
62 63
63 withtype decl = decl' located 64 withtype decl = decl' located