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

2d3da38b · Jay Belanger · 3cc2b29c · 2d3da38b
Commit 2d3da38b authored Dec 16, 2004 by Jay Belanger
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/calc/calc-comb.el lisp/calc/calc-comb.el +1 -1

No files found.
--- a/lisp/calc/calc-comb.el
+++ b/lisp/calc/calc-comb.el
@@ -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