Mercurial > urweb
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 |