Changed the usage message.

diff --git a/test.ml b/test.ml
index ae28460..bd6531d 100644 (file)
--- a/test.ml
+++ b/test.ml
@@ -182,8 +182,8 @@ and anonymous e =
   let msg = Printf.sprintf "Unknown argument %s.\n" e in
   failwith msg
 and usage =
-  Printf.sprintf "%s (--factors|--experiment) --size N --times N."
-    Sys.executable_name
+  Printf.sprintf "USAGE: %s (--factors|--degrees) --size N --times N"
+    (Filename.basename Sys.executable_name)