/[emacs]/emacs/lisp/calc/calc-comb.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-comb.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by jpb, Tue Nov 30 17:02:55 2004 UTC revision 1.9 by jpb, Thu Dec 16 22:56:08 2004 UTC
# Line 601  Line 601 
601  ;;; Shuffling algorithm from Numerical Recipes, section 7.1.  ;;; Shuffling algorithm from Numerical Recipes, section 7.1.
602  (defun math-random-digit ()  (defun math-random-digit ()
603    (let (i math-random-last)    (let (i math-random-last)
604      (or (eq var-RandSeed math-last-RandSeed)      (or (and var-RandSeed (eq var-RandSeed math-last-RandSeed))
605          (math-init-random-base))          (math-init-random-base))
606      (or math-random-cache      (or math-random-cache
607          (progn          (progn

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26