comparison src/mono_util.sig @ 96:82aaa1c406d3

Mono optimizations (start with string concat and space eating)
author Adam Chlipala <adamc@hcoop.net>
date Thu, 03 Jul 2008 18:06:52 -0400
parents 4ab19c19665f
children 813e5a52063d
comparison
equal deleted inserted replaced
95:274116d1a4cd 96:82aaa1c406d3
107 exp : 'typtext -> Mono.exp' -> Mono.exp', 107 exp : 'typtext -> Mono.exp' -> Mono.exp',
108 decl : 'typtext -> Mono.decl' -> Mono.decl', 108 decl : 'typtext -> Mono.decl' -> Mono.decl',
109 bind : 'typtext * binder -> 'typtext} 109 bind : 'typtext * binder -> 'typtext}
110 -> 'typtext -> Mono.file -> Mono.file 110 -> 'typtext -> Mono.file -> Mono.file
111 111
112 val map : {typ : Mono.typ' -> Mono.typ',
113 exp : Mono.exp' -> Mono.exp',
114 decl : Mono.decl' -> Mono.decl'}
115 -> Mono.file -> Mono.file
116
112 val fold : {typ : Mono.typ' * 'state -> 'state, 117 val fold : {typ : Mono.typ' * 'state -> 'state,
113 exp : Mono.exp' * 'state -> 'state, 118 exp : Mono.exp' * 'state -> 'state,
114 decl : Mono.decl' * 'state -> 'state} 119 decl : Mono.decl' * 'state -> 'state}
115 -> 'state -> Mono.file -> 'state 120 -> 'state -> Mono.file -> 'state
116 end 121 end