Commits

zck committed 8bfd711

use multiple-value-bind to bind values, not let*

  • Participants
  • Parent commits c7a9210

Comments (0)

Files changed (1)

 	(let ((to-reveal (list (list row col))))
 	  (minesweeper-debug "The user didn't pick an X")
 	  (while to-reveal
-	    (let* ((cur (pop to-reveal))
-		   (cur-row (car cur))
-		   (cur-col (cadr cur)))
+            (multiple-value-bind (cur-row cur-col) (pop to-reveal)
 	      (minesweeper-debug "View-mine says " (number-to-string cur-col) ", " (number-to-string cur-row) " mine = " (make-string 1 (minesweeper-view-mine cur-row cur-col 't)))
 	      (unless (or (minesweeper-is-revealed cur-row cur-col)
 			  (minesweeper-marked cur-row cur-col))