Default to no visualization.

diff --git a/run-mars.scm b/run-mars.scm
index 04aa81e..01dd271 100644 (file)
--- a/run-mars.scm
+++ b/run-mars.scm
@@ -43,7 +43,7 @@
   (print "Usage: run-mars [-h|--help]\n"
          "       run-mars [-c|--core size]\n"
          "                [-i|--iterations iters]\n"
   (print "Usage: run-mars [-h|--help]\n"
          "       run-mars [-c|--core size]\n"
          "                [-i|--iterations iters]\n"

-         "                [-n|--no-visualization]\n"
+         "                [-v|--visualization]\n"

          "                [-m|--min-queue-count]\n"
          "                warrior1.red [warrior2.red [...]]"))
 
          "                [-m|--min-queue-count]\n"
          "                warrior1.red [warrior2.red [...]]"))
 


@@ -51,7 +51,7 @@
   (let loop ((args (cdr (argv)))
              (iters 10000)
              (core-size 8000)
   (let loop ((args (cdr (argv)))
              (iters 10000)
              (core-size 8000)

-             (visualization #t)
+             (visualization #f)

              (min-queue-count 2))
     (match args
       ((or () ((or "-h" "--help")))
              (min-queue-count 2))
     (match args
       ((or () ((or "-h" "--help")))


@@ -60,8 +60,8 @@
        (loop rest (string->number istr) core-size visualization min-queue-count))
       (((or "-c" "--core-size") cstr rest ...)
        (loop rest iters (string->number cstr) visualization min-queue-count))
        (loop rest (string->number istr) core-size visualization min-queue-count))
       (((or "-c" "--core-size") cstr rest ...)
        (loop rest iters (string->number cstr) visualization min-queue-count))

-      (((or "-n" "--no-visualization") rest ...)
-       (loop rest iters core-size #f min-queue-count))
+      (((or "-v" "--visualization") rest ...)
+       (loop rest iters core-size #t min-queue-count))

       (((or "-m" "--min-queue-count") mstr rest ...)
        (loop rest iters core-size visualization (string->number mstr)))
       ((files ...)
       (((or "-m" "--min-queue-count") mstr rest ...)
        (loop rest iters core-size visualization (string->number mstr)))
       ((files ...)