From 5e0563d3b00303d5053827e46811c93077455208 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 3 Aug 2008 09:26:49 -0400 Subject: First part of getting cases through monoize --- src/mono_env.sig | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/mono_env.sig') diff --git a/src/mono_env.sig b/src/mono_env.sig index e3ff94b6..5b270799 100644 --- a/src/mono_env.sig +++ b/src/mono_env.sig @@ -37,6 +37,8 @@ signature MONO_ENV = sig val pushDatatype : env -> string -> int -> (string * int * Mono.typ option) list -> env val lookupDatatype : env -> int -> string * (string * int * Mono.typ option) list + val lookupConstructor : env -> int -> string * Mono.typ option * int + val pushERel : env -> string -> Mono.typ -> env val lookupERel : env -> int -> string * Mono.typ -- cgit v1.2.3