Mercurial > urweb

diff src/elab.sml @ 41:1405d8c26790

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Beginning of functor elaboration
author Adam Chlipala <adamc@hcoop.net>
date Thu, 19 Jun 2008 16:04:28 -0400
parents 44b5405e74c7
children b3fbbc6cb1e5
line wrap: on
line diff
--- a/src/elab.sml	Thu Jun 19 15:15:00 2008 -0400
+++ b/src/elab.sml	Thu Jun 19 16:04:28 2008 -0400
@@ -91,6 +91,7 @@
 and sgn' =
     SgnConst of sgn_item list
   | SgnVar of int
+  | SgnFun of string * int * sgn * sgn
   | SgnError
 
 withtype sgn_item = sgn_item' located
@@ -106,6 +107,7 @@
          StrConst of decl list
        | StrVar of int
        | StrProj of str * string
+       | StrFun of string * int * sgn * sgn * str
        | StrError
 
 withtype decl = decl' located