Mercurial > urweb

diff src/mono_env.sig @ 183:c0ea24dcb86f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Optimizing 'case' in Mono_reduce
author Adam Chlipala <adamc@hcoop.net>
date Sun, 03 Aug 2008 13:30:27 -0400
parents 3bbed533fbd2
children 1901db85acb4
line wrap: on
line diff
--- a/src/mono_env.sig	Sun Aug 03 12:43:20 2008 -0400
+++ b/src/mono_env.sig	Sun Aug 03 13:30:27 2008 -0400
@@ -39,8 +39,8 @@
 
     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