From: plugd <plugd@thelambdalab.xyz>
Date: Thu, 19 Aug 2021 07:00:47 +0000 (+0200)
Subject: Default to no visualization.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=865c1d7803580802c1f6048be60f7358e87b50e4;p=jars.git

Default to no visualization.
---

diff --git a/run-mars.scm b/run-mars.scm
index 04aa81e..01dd271 100644
--- 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"
-         "                [-n|--no-visualization]\n"
+         "                [-v|--visualization]\n"
          "                [-m|--min-queue-count]\n"
          "                warrior1.red [warrior2.red [...]]"))
 
@@ -51,7 +51,7 @@
   (let loop ((args (cdr (argv)))
              (iters 10000)
              (core-size 8000)
-             (visualization #t)
+             (visualization #f)
              (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))
-      (((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 ...)