From b6123d25d202d3cbe1f12d24dec129a90d5051ec Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 3 Aug 2008 13:30:27 -0400 Subject: Optimizing 'case' in Mono_reduce --- src/mono_env.sig | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/mono_env.sig') diff --git a/src/mono_env.sig b/src/mono_env.sig index 0c842de3..cb6f2352 100644 --- a/src/mono_env.sig +++ b/src/mono_env.sig @@ -39,8 +39,8 @@ signature MONO_ENV = sig val lookupConstructor : env -> int -> string * Mono.typ option * int - val pushERel : env -> string -> Mono.typ -> env - val lookupERel : env -> int -> string * Mono.typ + val pushERel : env -> string -> Mono.typ -> Mono.exp option -> env + val lookupERel : env -> int -> string * Mono.typ * Mono.exp option val pushENamed : env -> string -> int -> Mono.typ -> Mono.exp option -> string -> env val lookupENamed : env -> int -> string * Mono.typ * Mono.exp option * string -- cgit v1.2.3