Mercurial > urweb
diff src/mono_env.sig @ 168:25b169416ea8
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