Commit 2d3da38b authored by Jay Belanger's avatar Jay Belanger
Browse files

(math-random-digit): Call math-init-random-base if var-RandSeed is nil.

parent 3cc2b29c
......@@ -601,7 +601,7 @@
;;; Shuffling algorithm from Numerical Recipes, section 7.1.
(defun math-random-digit ()
(let (i math-random-last)
(or (eq var-RandSeed math-last-RandSeed)
(or (and var-RandSeed (eq var-RandSeed math-last-RandSeed))
(math-init-random-base))
(or math-random-cache
(progn
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment