Mercurial > urweb

comparison src/main.mlton.sml @ 23:bfa2e9ae4df8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tree-shaking
author Adam Chlipala <adamc@hcoop.net>
date Sun, 08 Jun 2008 17:15:09 -0400
parents 1ab48e37d0ef
children 145b536fc702
comparison
equal deleted inserted replaced
22:d8850cc06d24 23:bfa2e9ae4df8
24 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 24 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
25 * POSSIBILITY OF SUCH DAMAGE. 25 * POSSIBILITY OF SUCH DAMAGE.
26 *) 26 *)
27 27
28 val () = case CommandLine.arguments () of 28 val () = case CommandLine.arguments () of
29 [filename] => Compiler.testReduce filename 29 [filename] => Compiler.testShake filename
30 | _ => print "Bad arguments" 30 | _ => print "Bad arguments"