diff src/expl.sml @ 191:aa54250f58ac

Parametrized datatypes through explify
author Adam Chlipala <adamc@hcoop.net>
date Fri, 08 Aug 2008 10:28:32 -0400
parents 8e9f97508f0d
children 0343557355fc
line wrap: on
line diff
--- a/src/expl.sml	Thu Aug 07 13:09:26 2008 -0400
+++ b/src/expl.sml	Fri Aug 08 10:28:32 2008 -0400
@@ -69,7 +69,7 @@
          PWild
        | PVar of string * con
        | PPrim of Prim.t
-       | PCon of datatype_kind * patCon * pat option
+       | PCon of datatype_kind * patCon * con list * pat option
        | PRecord of (string * pat * con) list
 
 withtype pat = pat' located
@@ -98,8 +98,8 @@
 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 * (string * int * con option) list
+       | SgiDatatype of string * int * string list * (string * int * con option) list
+       | SgiDatatypeImp of string * int * int * string list * string * string list * (string * int * con option) list
        | SgiVal of string * int * con
        | SgiSgn of string * int * sgn
        | SgiStr of string * int * sgn
@@ -116,8 +116,8 @@
 
 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 * (string * int * con option) list
+       | DDatatype of string * int * string list * (string * int * con option) list
+       | DDatatypeImp of string * int * int * string list * string * string list * (string * int * con option) list
        | DVal of string * int * con * exp
        | DValRec of (string * int * con * exp) list
        | DSgn of string * int * sgn