comparison lisp/play/landmark.el @ 65585:6d0d4d973f77

Message format spec fixes, commit no. 4

65584:6dbba0bd58df

	    (lm-e forward-char)
	    (lm-w backward-char)))
  (lm-plot-square (lm-point-square) 1)
  (incf lm-number-of-moves)
  (if lm-output-moves
      (message (format "Moves made: %d" lm-number-of-moves))))


(defun lm-random-move ()
  (mapc
   (lambda (direction) (put direction 'y_t 0))

65585:6d0d4d973f77

	    (lm-e forward-char)
	    (lm-w backward-char)))
  (lm-plot-square (lm-point-square) 1)
  (incf lm-number-of-moves)
  (if lm-output-moves
      (message "Moves made: %d" lm-number-of-moves)))


(defun lm-random-move ()
  (mapc
   (lambda (direction) (put direction 'y_t 0))