From 79dae2e4a4dae9e106a2367fa97a3482f4cfdc9d Mon Sep 17 00:00:00 2001 From: Vivianne Langdon Date: Thu, 6 Jul 2023 23:08:58 -0700 Subject: [PATCH] Fix --- gib-gab-gob/board.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gib-gab-gob/board.scm b/gib-gab-gob/board.scm index ada7626..0d58bbe 100644 --- a/gib-gab-gob/board.scm +++ b/gib-gab-gob/board.scm @@ -12,12 +12,12 @@ (define (make-board) (make-array #f ggg-size ggg-size)) -(define (board-assert-vacant x y) +(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)) (define (board-choose! board val x y) - (board-assert-vacant) + (board-assert-vacant board x y) (array-set! board val y x)) (define (board-display board)