Mercurial > urweb
comparison src/mono_env.sig @ 183:c0ea24dcb86f
Optimizing 'case' in Mono_reduce
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 03 Aug 2008 13:30:27 -0400 |
parents | 3bbed533fbd2 |
children | 1901db85acb4 |
comparison
equal
deleted
inserted
replaced
182:d11754ffe252 | 183:c0ea24dcb86f |
---|---|
37 val pushDatatype : env -> string -> int -> (string * int * Mono.typ option) list -> env | 37 val pushDatatype : env -> string -> int -> (string * int * Mono.typ option) list -> env |
38 val lookupDatatype : env -> int -> string * (string * int * Mono.typ option) list | 38 val lookupDatatype : env -> int -> string * (string * int * Mono.typ option) list |
39 | 39 |
40 val lookupConstructor : env -> int -> string * Mono.typ option * int | 40 val lookupConstructor : env -> int -> string * Mono.typ option * int |
41 | 41 |
42 val pushERel : env -> string -> Mono.typ -> env | 42 val pushERel : env -> string -> Mono.typ -> Mono.exp option -> env |
43 val lookupERel : env -> int -> string * Mono.typ | 43 val lookupERel : env -> int -> string * Mono.typ * Mono.exp option |
44 | 44 |
45 val pushENamed : env -> string -> int -> Mono.typ -> Mono.exp option -> string -> env | 45 val pushENamed : env -> string -> int -> Mono.typ -> Mono.exp option -> string -> env |
46 val lookupENamed : env -> int -> string * Mono.typ * Mono.exp option * string | 46 val lookupENamed : env -> int -> string * Mono.typ * Mono.exp option * string |
47 | 47 |
48 val declBinds : env -> Mono.decl -> env | 48 val declBinds : env -> Mono.decl -> env |