Mercurial > urweb

diff src/cjr_env.sig @ 101:717b6f8d8505

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First executable generated
author Adam Chlipala <adamc@hcoop.net>
date Thu, 10 Jul 2008 11:13:49 -0400
parents d3cc191cb25f
children 813e5a52063d
line wrap: on
line diff
--- a/src/cjr_env.sig	Thu Jul 10 10:11:35 2008 -0400
+++ b/src/cjr_env.sig	Thu Jul 10 11:13:49 2008 -0400
@@ -34,6 +34,7 @@
     exception UnboundRel of int
     exception UnboundNamed of int
     exception UnboundF of int
+    exception UnboundStruct of int
 
     val pushTNamed : env -> string -> int -> Cjr.typ option -> env
     val lookupTNamed : env -> int -> string * Cjr.typ option
@@ -49,6 +50,9 @@
     val pushF : env -> int -> string -> Cjr.typ -> Cjr.typ -> env
     val lookupF : env -> int -> string * Cjr.typ * Cjr.typ
 
+    val pushStruct : env -> int -> (string * Cjr.typ) list -> env
+    val lookupStruct : env -> int -> (string * Cjr.typ) list
+
     val declBinds : env -> Cjr.decl -> env
                                                  
 end