vv/gib-gab-gob
1
0
Fork 0
Code Issues Pull requests Activity

Fix

Browse source
This commit is contained in:
Vivianne 2023-07-06 23:08:58 -07:00
parent ffddf2a975
commit 79dae2e4a4
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gib-gab-gob/board.scm
View file

@ -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)