Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
505:e18c747dd945 506:65d8541c130b
364 364
365 and optExp e = #1 (U.Exp.map {typ = typ, exp = exp} e) 365 and optExp e = #1 (U.Exp.map {typ = typ, exp = exp} e)
366 366
367 val optimize = U.File.map {typ = typ, exp = exp, decl = decl} 367 val optimize = U.File.map {typ = typ, exp = exp, decl = decl}
368 368
369 val optExp = U.Exp.map {typ = typ, exp = exp}
370
369 end 371 end