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/source.sml | |
parent | 84f7c995c0ad553d3fc91d1b31f320fc9de58d79 (diff) |
Start of datatype support
Diffstat (limited to 'src/source.sml')
-rw-r--r-- | src/source.sml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/source.sml b/src/source.sml index 9427d6d6..6439aaa4 100644 --- a/src/source.sml +++ b/src/source.sml @@ -71,6 +71,8 @@ withtype con = con' located datatype sgn_item' = SgiConAbs of string * kind | SgiCon of string * kind option * con + | SgiDatatype of string * (string * con option) list + | SgiDatatypeImp of string * string list * string | SgiVal of string * con | SgiStr of string * sgn | SgiSgn of string * sgn @@ -107,6 +109,8 @@ withtype exp = exp' located datatype decl' = DCon of string * kind option * con + | DDatatype of string * (string * con option) list + | DDatatypeImp of string * string list * string | DVal of string * con option * exp | DValRec of (string * con option * exp) list | DSgn of string * sgn |