diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-04-16 14:49:25 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-16 14:49:25 -0400 |
| commit | 6d021ead0f73c5a28080b50a1bd08b1ab72590c9 (patch) | |
| tree | 1560f6013ce6de0388180550168c20e9756eaa2c /src/mono.sml | |
| parent | 6d06bc0105d704373295c749aa65cc92488ac56c (diff) | |
Label exported symbols by effect-ness; factor out some common datatypes
Diffstat (limited to 'src/mono.sml')
| -rw-r--r-- | src/mono.sml | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/mono.sml b/src/mono.sml index d60c552c..dedb41ea 100644 --- a/src/mono.sml +++ b/src/mono.sml @@ -29,7 +29,7 @@ structure Mono = struct type 'a located = 'a ErrorMsg.located -datatype datatype_kind = datatype Core.datatype_kind +datatype datatype_kind = datatype DatatypeKind.datatype_kind datatype typ' = TFun of typ * typ @@ -115,11 +115,14 @@ datatype exp' = withtype exp = exp' located +datatype effect = datatype Export.effect +datatype export_kind = datatype Export.export_kind + datatype decl' = DDatatype of string * int * (string * int * typ option) list | DVal of string * int * typ * exp * string | DValRec of (string * int * typ * exp * string) list - | DExport of Core.export_kind * string * int * typ list * typ + | DExport of export_kind * string * int * typ list * typ | DTable of string * (string * typ) list * exp * exp | DSequence of string @@ -130,7 +133,6 @@ datatype decl' = | DCookie of string | DStyle of string - withtype decl = decl' located type file = decl list |