# HG changeset patch
# User Paul Eggert <eggert@twinsun.com>
# Date 744238207 0
# Node ID 3cd121df96c81db554b5ee262f4a3fe5a7680372
# Parent  c5e18576d5f1fd5cf372ff315240123de3504fa4
(random-number): Remove.
All callers changed to use `random' instead.

diff -r c5e18576d5f1 -r 3cd121df96c8 lisp/play/gomoku.el
--- a/lisp/play/gomoku.el	Sun Aug 01 20:50:07 1993 +0000
+++ b/lisp/play/gomoku.el	Sun Aug 01 20:50:07 1993 +0000
@@ -319,16 +319,11 @@
        ;; If score is equally good, choose randomly. But first check freeness:
        ((not (zerop (aref gomoku-board square)))
 	(aset gomoku-score-table square -1))
-       ((= count (random-number (setq count (1+ count))))
+       ((zerop (random (setq count (1+ count))))
 	(setq best-square square
 	      score-max	  score)))
       (setq square (1+ square)))	; try next square
     best-square))
-
-(defun random-number (n)
-  "Return a random integer between 0 and N-1 inclusive."
-  (setq n (% (random) n))
-  (if (< n 0) (- n) n))
 
 ;;;
 ;;; INITIALIZING THE SCORE TABLE.