diff options
| author | Jay Belanger | 2004-12-16 22:56:08 +0000 |
|---|---|---|
| committer | Jay Belanger | 2004-12-16 22:56:08 +0000 |
| commit | 2d3da38b67b30129be20c34eac4514cf3c5109ef (patch) | |
| tree | eab612725fd94a86d9fa6f99b4b434e8661ba5cf | |
| parent | 3cc2b29c6ae596534ffae6d9c9ad4f67dd52fb1d (diff) | |
| download | emacs-2d3da38b67b30129be20c34eac4514cf3c5109ef.tar.gz emacs-2d3da38b67b30129be20c34eac4514cf3c5109ef.zip | |
(math-random-digit): Call math-init-random-base if var-RandSeed is nil.
| -rw-r--r-- | lisp/calc/calc-comb.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calc/calc-comb.el b/lisp/calc/calc-comb.el index 24e3e5f182e..262db6c9bda 100644 --- a/lisp/calc/calc-comb.el +++ b/lisp/calc/calc-comb.el | |||
| @@ -601,7 +601,7 @@ | |||
| 601 | ;;; Shuffling algorithm from Numerical Recipes, section 7.1. | 601 | ;;; Shuffling algorithm from Numerical Recipes, section 7.1. |
| 602 | (defun math-random-digit () | 602 | (defun math-random-digit () |
| 603 | (let (i math-random-last) | 603 | (let (i math-random-last) |
| 604 | (or (eq var-RandSeed math-last-RandSeed) | 604 | (or (and var-RandSeed (eq var-RandSeed math-last-RandSeed)) |
| 605 | (math-init-random-base)) | 605 | (math-init-random-base)) |
| 606 | (or math-random-cache | 606 | (or math-random-cache |
| 607 | (progn | 607 | (progn |