Mercurial > urweb

diff src/elab_env.sig @ 753:d484df4e841a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Preparing to allow views in SELECT FROM clauses
author Adam Chlipala <adamc@hcoop.net>
date Tue, 28 Apr 2009 14:02:23 -0400
parents 059074c8d2fc
children 56bd4a4f6e66
line wrap: on
line diff
--- a/src/elab_env.sig	Tue Apr 28 11:18:27 2009 -0400
+++ b/src/elab_env.sig	Tue Apr 28 14:02:23 2009 -0400
@@ -71,7 +71,8 @@
 
     val pushClass : env -> int -> env
     val isClass : env -> Elab.con -> bool
-    val resolveClass : (Elab.con -> Elab.con) -> env -> Elab.con -> Elab.exp option
+    val resolveClass : (Elab.con -> Elab.con) -> (Elab.con * Elab.con -> bool)
+                       -> env -> Elab.con -> Elab.exp option
     val listClasses : env -> (Elab.con * (Elab.con * Elab.exp) list) list
 
     val pushERel : env -> string -> Elab.con -> env
@@ -118,4 +119,6 @@
 
     val patBinds : env -> Elab.pat -> env
 
+    exception Bad of Elab.con * Elab.con
+
 end