X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=jars.git;a=blobdiff_plain;f=run-mars.scm;fp=run-mars.scm;h=30b9e5c9e8d6a89e16599d0ffb2875ff264cb22b;hp=1d04af88dd9f8a4f6fb2582b2532be94c0e97e2f;hb=5df4e85a21e1577f0589e5ca2907157ec4e4e392;hpb=9104b806110085e7e11c16652705af88346d0262

diff --git a/run-mars.scm b/run-mars.scm
index 1d04af8..30b9e5c 100644
--- a/run-mars.scm
+++ b/run-mars.scm
@@ -12,11 +12,13 @@
              (colors-left colors))
     (if (null? progs-left)
         entries
-        (let ((this-prog (car progs-left))
-              (this-col (car colors-left)))
-          (loop (cons (cons (prog-name this-prog) this-col) entries)
-                (cdr progs-left)
-                (cdr colors-left))))))
+        (if (null? colors-left)
+            (error "Not enough colours in colour map!")
+            (let ((this-prog (car progs-left))
+                  (this-col (car colors-left)))
+              (loop (cons (cons (prog-name this-prog) this-col) entries)
+                    (cdr progs-left)
+                    (cdr colors-left)))))))
 
 (define (mars-runner files iters core-size visualization)
   (print "Iters: " iters ", core size: " core-size)