# HG changeset patch
# User Paul Eggert <eggert@twinsun.com>
# Date 744238207 0
# Node ID 935cc145f0b57315b0cb5c5567a8e13203dbb628
# Parent  46f13ed2553477690115cee313f0e2a4939b11b0
(pick-random): Remove.
All callers changed to use `random' instead.

diff -r 46f13ed25534 -r 935cc145f0b5 lisp/play/cookie1.el
--- a/lisp/play/cookie1.el	Sun Aug 01 20:50:07 1993 +0000
+++ b/lisp/play/cookie1.el	Sun Aug 01 20:50:07 1993 +0000
@@ -30,8 +30,7 @@
 ;; the NSA Trunk Trawler.
 ;;
 ;; The two entry points are `cookie' and `cookie-insert'.  The helper
-;; functions `pick-random' and `shuffle-vector' may be of interest to
-;; programmers.
+;; function `shuffle-vector' may be of interest to programmers.
 ;;
 ;; The code expects phrase files to be in one of two formats:
 ;;
@@ -121,10 +120,6 @@
 	  (message endmsg)
 	  (set sym (apply 'vector result)))))))
 
-(defun pick-random (n)
-  "Returns a random number from 0 to N-1 inclusive."
-  (% (logand 0777777 (random)) n))
-
 ; Thanks to Ian G Batten <BattenIG@CS.BHAM.AC.UK>
 ; [of the University of Birmingham Computer Science Department]
 ; for the iterative version of this shuffle.
@@ -137,7 +132,7 @@
 	temp
 	(len (length vector)))
     (while (< i len)
-      (setq j (+ i (pick-random (- len i))))
+      (setq j (+ i (random (- len i))))
       (setq temp (aref vector i))
       (aset vector i (aref vector j))
       (aset vector j temp)