diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-09-08 19:42:12 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-09-08 19:42:12 -0400 |
commit | 83430cc520eadaffac2ebab258696f9146ada9b0 (patch) | |
tree | 300ddd5b559729aafff0412876a6d507fcfafc28 /src/mono_util.sig | |
parent | 50bbd6df3de3f637fe8bb680ad707a133e976c6e (diff) |
'more' demos working after optimizer fix
Diffstat (limited to 'src/mono_util.sig')
-rw-r--r-- | src/mono_util.sig | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/mono_util.sig b/src/mono_util.sig index 2a96211a..06290e7d 100644 --- a/src/mono_util.sig +++ b/src/mono_util.sig @@ -72,6 +72,10 @@ structure Exp : sig val exists : {typ : Mono.typ' -> bool, exp : Mono.exp' -> bool} -> Mono.exp -> bool + val existsB : {typ : Mono.typ' -> bool, + exp : 'context * Mono.exp' -> bool, + bind : 'context * binder -> 'context} -> 'context -> Mono.exp -> bool + val foldB : {typ : Mono.typ' * 'state -> 'state, exp : 'context * Mono.exp' * 'state -> 'state, bind : 'context * binder -> 'context} |