[nongnu] elpa/pacmacs 91408c074d 115/472: Refactor pacmacs--track-object (#74)

[ELPA Syncer]

branch: elpa/pacmacs
commit 91408c074d077c4f44cefccc4a0b535fa7b65d17
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>

    Refactor pacmacs--track-object (#74)
---
 pacmacs.el           | 2 +-
 test/pacmacs-test.el | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/pacmacs.el b/pacmacs.el
index 2d32750991..31ed6f7b22 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -238,7 +238,7 @@
   (plist-bind ((row :row)
                (column :column))
       game-object
-    (let ((direction (aref (aref pacmacs-track-board row) column)))
+    (let ((direction (pacmacs--cell-get pacmacs-track-board row column)))
       (pacmacs--switch-direction game-object direction))))
 
 (defun pacmacs-tick ()
diff --git a/test/pacmacs-test.el b/test/pacmacs-test.el
index bf0f1f514d..a86d1a316d 100644
--- a/test/pacmacs-test.el
+++ b/test/pacmacs-test.el
@@ -22,10 +22,10 @@
                    (plist-get pacmacs-track-board :data)))))
 
 (ert-deftest pacmacs--track-object-test ()
-  (let ((pacmacs-board-width 2)
-        (pacmacs-board-height 2)
-        (pacmacs-track-board [[right down]
-                              [up left]])
+  (let ((pacmacs-track-board (list :width 2
+                                   :height 2
+                                   :data [[right down]
+                                          [up left]]))
         (game-object (list :row 0
                            :column 0)))
     (with-mock