From 865c1d7803580802c1f6048be60f7358e87b50e4 Mon Sep 17 00:00:00 2001 From: plugd Date: Thu, 19 Aug 2021 09:00:47 +0200 Subject: [PATCH] Default to no visualization. --- run-mars.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 ...) -- 2.20.1