Mercurial > urweb

diff src/elab.sml @ 563:44958d74c43f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial conversion to arbitrary-kind classes
author Adam Chlipala <adamc@hcoop.net>
date Fri, 19 Dec 2008 10:03:31 -0500
parents ae03d09043c1
children 8998114760c1
line wrap: on
line diff
--- a/src/elab.sml	Fri Dec 19 09:35:44 2008 -0500
+++ b/src/elab.sml	Fri Dec 19 10:03:31 2008 -0500
@@ -136,8 +136,8 @@
        | SgiStr of string * int * sgn
        | SgiSgn of string * int * sgn
        | SgiConstraint of con * con
-       | SgiClassAbs of string * int
-       | SgiClass of string * int * con
+       | SgiClassAbs of string * int * kind
+       | SgiClass of string * int * kind * con
 
 and sgn' =
     SgnConst of sgn_item list
@@ -163,7 +163,7 @@
        | DExport of int * sgn * str
        | DTable of int * string * int * con
        | DSequence of int * string * int
-       | DClass of string * int * con
+       | DClass of string * int * kind * con
        | DDatabase of string
        | DCookie of int * string * int * con