diff src/main.mlton.sml @ 20:1ab48e37d0ef

Some con reducing
author Adam Chlipala <adamc@hcoop.net>
date Sun, 08 Jun 2008 15:47:44 -0400
parents f1c36df29ed7
children bfa2e9ae4df8
line wrap: on
line diff
--- a/src/main.mlton.sml	Sun Jun 08 14:42:12 2008 -0400
+++ b/src/main.mlton.sml	Sun Jun 08 15:47:44 2008 -0400
@@ -26,5 +26,5 @@
  *)
 
 val () = case CommandLine.arguments () of
-             [filename] => Compiler.testElaborate filename
+             [filename] => Compiler.testReduce filename
            | _ => print "Bad arguments"