Mercurial > urweb
diff src/compiler.sig @ 515:4929cf86bc03
Stop using redundant Defunc pass
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Thu, 27 Nov 2008 10:46:45 -0500 |
| parents | 65d8541c130b |
| children | 1901db85acb4 |
line wrap: on
line diff
--- a/src/compiler.sig Thu Nov 27 10:40:29 2008 -0500 +++ b/src/compiler.sig Thu Nov 27 10:46:45 2008 -0500 @@ -66,7 +66,6 @@ val especialize : (Core.file, Core.file) phase val core_untangle : (Core.file, Core.file) phase val shake : (Core.file, Core.file) phase - val defunc : (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 @@ -92,8 +91,6 @@ val toEspecialize : (string, Core.file) transform val toCore_untangle : (string, Core.file) transform val toShake1 : (string, Core.file) transform - val toDefunc : (string, Core.file) transform - val toShake1' : (string, Core.file) transform val toTag : (string, Core.file) transform val toReduce : (string, Core.file) transform val toUnpoly : (string, Core.file) transform