Mercurial > urweb

diff src/expl.sml @ 45:3c1ce1b4eb3d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Explifying functors
author Adam Chlipala <adamc@hcoop.net>
date Thu, 19 Jun 2008 17:11:24 -0400
parents d16ef24de78b
children 0a5c312de09a
line wrap: on
line diff
--- a/src/expl.sml	Thu Jun 19 17:04:08 2008 -0400
+++ b/src/expl.sml	Thu Jun 19 17:11:24 2008 -0400
@@ -79,6 +79,8 @@
 and sgn' =
     SgnConst of sgn_item list
   | SgnVar of int
+  | SgnFun of string * int * sgn * sgn
+  | SgnWhere of sgn * string * con
 
 withtype sgn_item = sgn_item' located
 and sgn = sgn' located
@@ -93,6 +95,8 @@
          StrConst of decl list
        | StrVar of int
        | StrProj of str * string
+       | StrFun of string * int * sgn * sgn * str
+       | StrApp of str * str
 
 withtype decl = decl' located
      and str = str' located