diff --git a/gib-gab-gob/actors.scm b/gib-gab-gob/actors.scm index 92cda0a..fb78dc9 100644 --- a/gib-gab-gob/actors.scm +++ b/gib-gab-gob/actors.scm @@ -103,7 +103,8 @@ (array-map! arr (lambda () (spawn ^mark))) (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)))] [(choose! coords mark-char) (if ($ self 'chosen? coords)