From a3e2c45861be578976c47be390a538bf02112933 Mon Sep 17 00:00:00 2001 From: Vivianne Langdon Date: Sun, 2 Jul 2023 22:59:01 -0700 Subject: [PATCH] Cleaner printing func --- gib-gab-gob/game.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/gib-gab-gob/game.scm b/gib-gab-gob/game.scm index 6ac32f0..ccff0ce 100644 --- a/gib-gab-gob/game.scm +++ b/gib-gab-gob/game.scm @@ -52,14 +52,13 @@ (array-set! board val y x))))) (define (board-display board) - (define (print-mark mark) - (if mark mark " ")) + (define (print m) (or m " ")) ;; this is .. probably messy? (array-slice-for-each-in-order 1 (lambda (x) - (map (lambda (i) (format #t "[~a]" (print-mark i))) + (map (lambda (i) (format #t "[~a]" (print i))) (array->list x)) (format #t "\n")) board))