diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-09-11 09:36:47 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-11 09:36:47 -0400 |
commit | 7bc788c67ed9331773355ceeae4ace7923a6e914 (patch) | |
tree | 94beda93e06e4418c5d001aa317365a1d878efdb /src/compiler.sig | |
parent | 9e804908dd69043c8a9942cdf6042b8dc0d76175 (diff) |
Unpoly non-recursive function
Diffstat (limited to 'src/compiler.sig')
-rw-r--r-- | src/compiler.sig | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/compiler.sig b/src/compiler.sig index 2312a047..1388537f 100644 --- a/src/compiler.sig +++ b/src/compiler.sig @@ -62,6 +62,7 @@ signature COMPILER = sig 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 @@ signature COMPILER = sig 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 |