# HG changeset patch
# User Adam Chlipala <adamc@hcoop.net>
# Date 1213128310 14400
# Node ID 145b536fc70299404930d0d2a17c79b04d370149
# Parent  4ab19c19665fcaf3692b4a8b04082ed2526a937c
Update main.mlton

diff -r 4ab19c19665f -r 145b536fc702 src/main.mlton.sml
--- a/src/main.mlton.sml	Tue Jun 10 15:56:33 2008 -0400
+++ b/src/main.mlton.sml	Tue Jun 10 16:05:10 2008 -0400
@@ -26,5 +26,5 @@
  *)
 
 val () = case CommandLine.arguments () of
-             [filename] => Compiler.testShake filename
+             [filename] => Compiler.testCloconv filename
            | _ => print "Bad arguments"