diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-07-24 15:02:03 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-24 15:02:03 -0400 |
commit | 92af3391b64df0a2082006c39ed1335dd1bf7256 (patch) | |
tree | 88b7d3545d1b46e288c0f1f0d41a9be6abdb0ce1 /src/elab.sml | |
parent | 84f7c995c0ad553d3fc91d1b31f320fc9de58d79 (diff) |
Start of datatype support
Diffstat (limited to 'src/elab.sml')
-rw-r--r-- | src/elab.sml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/elab.sml b/src/elab.sml index 1ba3b454..e0ccee25 100644 --- a/src/elab.sml +++ b/src/elab.sml @@ -93,6 +93,8 @@ withtype exp = exp' located datatype sgn_item' = SgiConAbs of string * int * kind | SgiCon of string * int * kind * con + | SgiDatatype of string * int * (string * int * con option) list + | SgiDatatypeImp of string * int * int * string list * string | SgiVal of string * int * con | SgiStr of string * int * sgn | SgiSgn of string * int * sgn @@ -111,6 +113,8 @@ and sgn = sgn' located datatype decl' = DCon of string * int * kind * con + | DDatatype of string * int * (string * int * con option) list + | DDatatypeImp of string * int * int * string list * string | DVal of string * int * con * exp | DValRec of (string * int * con * exp) list | DSgn of string * int * sgn |