[make devolve pass use transformGrin
John Meacham <john@repetae.net>**20070522051436] hunk ./Grin/Devolve.hs 1
-module Grin.Devolve(devolveGrin) where
+module Grin.Devolve(devolveTransform,devolveGrin) where
hunk ./Grin/Devolve.hs 10
+import Support.Transform
hunk ./Grin/Devolve.hs 15
+devolveTransform = transformParms {
+    transformDumpProgress = True,
+    transformCategory = "Devolve",
+    transformPass = "Grin",
+    transformOperation = devolveGrin
+    }
+
+-- devolve grin into a form in which it can be readily converted into C code
+-- This lifts any local functions which are ever called in a non-tail-calllike form
+-- to the top level.
hunk ./Main.hs 50
-import Grin.Devolve(devolveGrin)
+import Grin.Devolve(devolveTransform)
hunk ./Main.hs 752
-    x <- devolveGrin x
+    x <- transformGrin devolveTransform x