Mercurial > urweb

comparison src/compiler.sml @ 24:ea15905e598d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Run a shake before reducing
author Adam Chlipala <adamc@hcoop.net>
date Sun, 08 Jun 2008 17:21:31 -0400
parents bfa2e9ae4df8
children 0a762c73824d
comparison
equal deleted inserted replaced
23:bfa2e9ae4df8 24:ea15905e598d
73 | SOME (_, file) => SOME (Corify.corify file) 73 | SOME (_, file) => SOME (Corify.corify file)
74 74
75 fun reduce eenv cenv filename = 75 fun reduce eenv cenv filename =
76 case corify eenv cenv filename of 76 case corify eenv cenv filename of
77 NONE => NONE 77 NONE => NONE
78 | SOME file => SOME (Reduce.reduce file) 78 | SOME file => SOME (Reduce.reduce (Shake.shake file))
79 79
80 fun shake eenv cenv filename = 80 fun shake eenv cenv filename =
81 case reduce eenv cenv filename of 81 case reduce eenv cenv filename of
82 NONE => NONE 82 NONE => NONE
83 | SOME file => SOME (Shake.shake file) 83 | SOME file => SOME (Shake.shake file)