Commits

zck committed 54bf21c

made 'pick-around take (row, col) args.

Comments (0)

Files changed (1)

minesweeper-mode.el

   (unless *minesweeper-game-over*
     (multiple-value-bind (row col) (minesweeper-position)
       (when (minesweeper-neighbors-bounds row col)
-        (catch 'game-end (minesweeper-pick-around col row)
+        (catch 'game-end (minesweeper-pick-around row col)
                (minesweeper-print-field)))
       (minesweeper-debug "finishing choose-round"))))
 
         (goto-char 0)
         (forward-line row)
         (forward-char col))
-      (catch 'game-end (minesweeper-pick-around col row)
+      (catch 'game-end (minesweeper-pick-around row col)
 	     (minesweeper-print-field))))
   (minesweeper-debug "ending choose-around-mouse"))
 
-(defun minesweeper-pick-around (col row)
+(defun minesweeper-pick-around (row col)
   "Pick all the squares around (col, row) excluding (col, row). This is an internal function."
-  (minesweeper-debug "called pick-around " (number-to-string col) " " (number-to-string row))
+  (minesweeper-debug "called pick-around " (number-to-string row) " " (number-to-string col))
   (when (minesweeper-neighbors-bounds row col)
     (mapc '(lambda (position)
 	     (minesweeper-debug "called pick-around-helper " (number-to-string col) " " (number-to-string row))