Mercurial > emacs

changeset 59001:9b61c52f0f54

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(math-random-digit): Call math-init-random-base if var-RandSeed is nil.
author Jay Belanger <jay.p.belanger@gmail.com>
date Thu, 16 Dec 2004 22:56:08 +0000
parents ee201fcb86f7
children d60af8f9ca75
files lisp/calc/calc-comb.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-comb.el	Thu Dec 16 17:13:22 2004 +0000
+++ b/lisp/calc/calc-comb.el	Thu Dec 16 22:56:08 2004 +0000
@@ -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