diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-08-03 13:30:27 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-08-03 13:30:27 -0400 |
| commit | b6123d25d202d3cbe1f12d24dec129a90d5051ec (patch) | |
| tree | 5537d58d7dba623127804b35813d7c0ec673f8b9 /src/mono_env.sig | |
| parent | 6314b4c27a14576b356258dad74607168135cb51 (diff) | |
Optimizing 'case' in Mono_reduce
Diffstat (limited to 'src/mono_env.sig')
| -rw-r--r-- | src/mono_env.sig | 4 |
1 files changed, 2 insertions, 2 deletions
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 |