Mercurial > urweb

diff src/mono_opt.sml @ 506:65d8541c130b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fusing writes with recursive function calls
author Adam Chlipala <adamc@hcoop.net>
date Tue, 25 Nov 2008 10:05:44 -0500
parents 98f85c1bc867
children a152905c3c3b
line wrap: on
line diff
--- a/src/mono_opt.sml	Sun Nov 23 11:47:28 2008 -0500
+++ b/src/mono_opt.sml	Tue Nov 25 10:05:44 2008 -0500
@@ -366,4 +366,6 @@
 
 val optimize = U.File.map {typ = typ, exp = exp, decl = decl}
 
+val optExp = U.Exp.map {typ = typ, exp = exp}
+
 end