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

Switch coords. It kinda works? But testing is annoying.

Browse source
This commit is contained in:
Vivianne 2023-02-11 22:34:46 -08:00
parent dffa96f5d0
commit e0dd13caab
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
gib-gab-gob/actors.scm
View file

@ -103,7 +103,8 @@
(array-map! arr (lambda () (spawn ^mark))) (array-map! arr (lambda () (spawn ^mark)))
(methods (methods
[(ref coords) (match coords ((x y) (array-ref arr x y)))] ;; Switch coords for clarity
[(ref coords) (match coords ((x y) (array-ref arr y x)))]
[(chosen? coords) (not (not ($ ($ self 'ref coords) 'get)))] [(chosen? coords) (not (not ($ ($ self 'ref coords) 'get)))]
[(choose! coords mark-char) [(choose! coords mark-char)
(if ($ self 'chosen? coords) (if ($ self 'chosen? coords)