From: Joshua Wise Date: Mon, 5 Jul 2010 09:49:03 +0000 (-0400) Subject: Un-size optimize X-Git-Url: http://git.joshuawise.com/snipe.git/commitdiff_plain/4a34fbf0834d02dd913bf872e45b3285aafce641?ds=sidebyside Un-size optimize --- diff --git a/optimize/optimizer.sml b/optimize/optimizer.sml index 290bd05..97d481e 100644 --- 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)] - | 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)]