diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-12-20 14:19:21 -0500 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-12-20 14:19:21 -0500 |
commit | 38f0a1e10825923e44f22bdd559291b32eb3173d (patch) | |
tree | b3d519edc46498c2743994fbcf548dd1a2f3e66b /src/mono_util.sig | |
parent | 3eba512008eb94393e65533966aeb21c90a231f3 (diff) |
Start of JsComp
Diffstat (limited to 'src/mono_util.sig')
-rw-r--r-- | src/mono_util.sig | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/mono_util.sig b/src/mono_util.sig index 32a83855..2a96211a 100644 --- a/src/mono_util.sig +++ b/src/mono_util.sig @@ -71,6 +71,11 @@ structure Exp : sig val exists : {typ : Mono.typ' -> bool, exp : Mono.exp' -> bool} -> Mono.exp -> bool + + val foldB : {typ : Mono.typ' * 'state -> 'state, + exp : 'context * Mono.exp' * 'state -> 'state, + bind : 'context * binder -> 'context} + -> 'context -> 'state -> Mono.exp -> 'state end structure Decl : sig @@ -95,6 +100,12 @@ structure Decl : sig exp : Mono.exp' -> Mono.exp', decl : Mono.decl' -> Mono.decl'} -> Mono.decl -> Mono.decl + + val foldMapB : {typ : Mono.typ' * 'state -> Mono.typ' * 'state, + exp : 'context * Mono.exp' * 'state -> Mono.exp' * 'state, + decl : 'context * Mono.decl' * 'state -> Mono.decl' * 'state, + bind : 'context * binder -> 'context} + -> 'context -> 'state -> Mono.decl -> Mono.decl * 'state end structure File : sig |