diff options
Diffstat (limited to 'examples/mines/mines.scm')
| -rw-r--r-- | examples/mines/mines.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/examples/mines/mines.scm b/examples/mines/mines.scm index 0b93473..954f17f 100644 --- a/examples/mines/mines.scm +++ b/examples/mines/mines.scm @@ -163,8 +163,9 @@ (define (board-update board position tile) (match position - (($ <vector2> x y) - (list-replace board y (list-replace (list-ref board y) x tile))))) + ((? vector2? v) + (list-replace board (vy v) + (list-replace (list-ref board y) (vx v) tile))))) (define (neighbors board pos) (let* ((size (length board)) |