Mercurial > urweb

diff src/cjr_env.sig @ 181:31dfab1d4050

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cjrize ECon
author Adam Chlipala <adamc@hcoop.net>
date Sun, 03 Aug 2008 11:17:33 -0400
parents a991431b77eb
children 8e9f97508f0d
line wrap: on
line diff
--- a/src/cjr_env.sig	Sun Aug 03 11:03:35 2008 -0400
+++ b/src/cjr_env.sig	Sun Aug 03 11:17:33 2008 -0400
@@ -39,6 +39,8 @@
     val pushDatatype : env -> string -> int -> (string * int * Cjr.typ option) list -> env
     val lookupDatatype : env -> int -> string * (string * int * Cjr.typ option) list
 
+    val lookupConstructor : env -> int -> string * Cjr.typ option * int
+
     val pushERel : env -> string -> Cjr.typ -> env
     val lookupERel : env -> int -> string * Cjr.typ
     val listERels : env -> (string * Cjr.typ) list