Propagate strings through the blarg backend.

[snipe.git] / optimize / optimizer.sml

diff --git a/optimize/optimizer.sml b/optimize/optimizer.sml
index 290bd054e169e3b9eb09e330cf194999c9100129..97d481e905a15ac3bdd0ad3757aa1b5741df8092 100644 (file)
--- a/optimize/optimizer.sml
+++ b/optimize/optimizer.sml
@@ -39,7 +39,7 @@ struct
   
   fun foldfunc f (T.FUNCTION (id, stml)) = T.FUNCTION (id, List.concat (List.map f stml))
   fun expfunc f (T.MOVE (e1, e2)) = [T.MOVE (f e1, f e2)]
   
   fun foldfunc f (T.FUNCTION (id, stml)) = T.FUNCTION (id, List.concat (List.map f stml))
   fun expfunc f (T.MOVE (e1, e2)) = [T.MOVE (f e1, f e2)]

-    | expfunc f (T.RETURN (e, s)) = [T.RETURN (f e, s)]
+    | expfunc f (T.RETURN (e)) = [T.RETURN (f e)]

     | expfunc f (T.EFFECT e) = [T.EFFECT (f e)]
     | expfunc f (a as T.LABEL _) = [a]
     | expfunc f (T.JUMPIFN (e, l)) = [T.JUMPIFN (f e, l)]
     | expfunc f (T.EFFECT e) = [T.EFFECT (f e)]
     | expfunc f (a as T.LABEL _) = [a]
     | expfunc f (T.JUMPIFN (e, l)) = [T.JUMPIFN (f e, l)]