From 0d5f6e6386c55c5d3602a170a3339c946ed53a10 Mon Sep 17 00:00:00 2001 From: Vivianne Langdon Date: Thu, 6 Jul 2023 23:27:29 -0700 Subject: [PATCH] Fix fix --- gib-gab-gob/board.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/gib-gab-gob/board.scm b/gib-gab-gob/board.scm index 0d58bbe..dab828f 100644 --- a/gib-gab-gob/board.scm +++ b/gib-gab-gob/board.scm @@ -12,6 +12,9 @@ (define (make-board) (make-array #f ggg-size ggg-size)) +(define (board-ref board x y) + (array-ref board y x)) + (define (board-assert-vacant board x y) (define ref (board-ref board x y)) (if ref (error "That space is already occupied with:" ref) ref))