diff 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
line wrap: on
line diff
--- a/src/mono_util.sig	Thu Jul 03 17:53:28 2008 -0400
+++ b/src/mono_util.sig	Thu Jul 03 18:06:52 2008 -0400
@@ -109,6 +109,11 @@
                 bind : 'typtext * binder -> 'typtext}
                -> 'typtext -> Mono.file -> Mono.file
 
+    val map : {typ : Mono.typ' -> Mono.typ',
+                exp : Mono.exp' -> Mono.exp',
+                decl : Mono.decl' -> Mono.decl'}
+              -> Mono.file -> Mono.file
+
     val fold : {typ : Mono.typ' * 'state -> 'state,
                 exp : Mono.exp' * 'state -> 'state,
                 decl : Mono.decl' * 'state -> 'state}