zck committed db637a1

Fix some complaints when you eval the code.

Comments (0)

Files changed (1)

 (defun minesweeper-inform-around (row col &optional amount)
   "takes in a square, and increases the values of all its empty neighbors by 'amount"
-  (mapc (lambda (position)
+  (mapc #'(lambda (position)
 	  (minesweeper-++ (car position) (cadr position) amount))
 	(minesweeper-neighbors 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 row) " " (number-to-string col))
   (when (minesweeper-neighbors-bounds row col)
-    (mapc '(lambda (position)
+    (mapc #'(lambda (position)
 	     (minesweeper-debug "called pick-around-helper " (number-to-string col) " " (number-to-string row))
 	     (minesweeper-pick (car position) (cadr position)))
 	  (minesweeper-neighbors row col))))