diff --git a/gib-gab-gob/game.scm b/gib-gab-gob/game.scm
index 9b44fd7..49aa2b4 100644
--- a/gib-gab-gob/game.scm
+++ b/gib-gab-gob/game.scm
@@ -51,13 +51,10 @@
       (array-set! board val y x)))
 
 (define (board-display board)
-  (define (print m) (or m " "))
-  ;; this is .. probably messy?
   (array-slice-for-each-in-order
    1
-   (λ (x)
-     (map (λ (i) (format #t "[~a]" (print i)))
-          (array->list x))
+   (λ (row)
+     (array-for-each (λ (x) (format #t "[~a]" (or x " "))) row)
      (format #t "\n"))
    board))