Mercurial > urweb

diff src/mono_env.sig @ 168:25b169416ea8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Storing datatype constructors in type references past monoize
author Adam Chlipala <adamc@hcoop.net>
date Tue, 29 Jul 2008 15:43:17 -0400
parents 813e5a52063d
children eb3f9913bf31
line wrap: on
line diff
--- a/src/mono_env.sig	Tue Jul 29 15:25:42 2008 -0400
+++ b/src/mono_env.sig	Tue Jul 29 15:43:17 2008 -0400
@@ -34,8 +34,8 @@
     exception UnboundRel of int
     exception UnboundNamed of int
 
-    val pushTNamed : env -> string -> int -> Mono.typ option -> env
-    val lookupTNamed : env -> int -> string * Mono.typ option
+    val pushDatatype : env -> string -> int -> (string * int * Mono.typ option) list -> env
+    val lookupDatatype : env -> int -> string * (string * int * Mono.typ option) list
 
     val pushERel : env -> string -> Mono.typ -> env
     val lookupERel : env -> int -> string * Mono.typ