Mercurial > urweb
diff src/compiler.sig @ 315:e21d0dddda09
Unpoly non-recursive function
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Thu, 11 Sep 2008 09:36:47 -0400 |
| parents | e0ed0d4dabc9 |
| children | a94a79820d49 |
line wrap: on
line diff
--- a/src/compiler.sig Tue Sep 09 12:36:13 2008 -0400 +++ b/src/compiler.sig Thu Sep 11 09:36:47 2008 -0400 @@ -62,6 +62,7 @@ val shake : (Core.file, Core.file) phase val tag : (Core.file, Core.file) phase val reduce : (Core.file, Core.file) phase + val unpoly : (Core.file, Core.file) phase val specialize : (Core.file, Core.file) phase val monoize : (Core.file, Mono.file) phase val mono_opt : (Mono.file, Mono.file) phase @@ -81,7 +82,8 @@ val toShake1 : (string, Core.file) transform val toTag : (string, Core.file) transform val toReduce : (string, Core.file) transform - val toSpecialize : (string, Core.file) transform + val toUnpoly : (string, Core.file) transform + val toSpecialize : (string, Core.file) transform val toShake2 : (string, Core.file) transform val toMonoize : (string, Mono.file) transform val toMono_opt1 : (string, Mono.file) transform