Mercurial > urweb
diff src/compiler.sig @ 506:65d8541c130b
Fusing writes with recursive function calls
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Tue, 25 Nov 2008 10:05:44 -0500 |
| parents | 8875ff2e85dc |
| children | 4929cf86bc03 |
line wrap: on
line diff
--- a/src/compiler.sig Sun Nov 23 11:47:28 2008 -0500 +++ b/src/compiler.sig Tue Nov 25 10:05:44 2008 -0500 @@ -76,6 +76,7 @@ val untangle : (Mono.file, Mono.file) phase val mono_reduce : (Mono.file, Mono.file) phase val mono_shake : (Mono.file, Mono.file) phase + val fuse : (Mono.file, Mono.file) phase val pathcheck : (Mono.file, Mono.file) phase val cjrize : (Mono.file, Cjr.file) phase val prepare : (Cjr.file, Cjr.file) phase @@ -104,6 +105,9 @@ val toMono_reduce : (string, Mono.file) transform val toMono_shake : (string, Mono.file) transform val toMono_opt2 : (string, Mono.file) transform + val toFuse : (string, Mono.file) transform + val toUntangle2 : (string, Mono.file) transform + val toMono_shake2 : (string, Mono.file) transform val toPathcheck : (string, Mono.file) transform val toCjrize : (string, Cjr.file) transform val toPrepare : (string, Cjr.file) transform