diff options
Diffstat (limited to 'src/algebra/random.spad.pamphlet')
-rw-r--r-- | src/algebra/random.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/random.spad.pamphlet b/src/algebra/random.spad.pamphlet index 0a650ee2..dc47310e 100644 --- a/src/algebra/random.spad.pamphlet +++ b/src/algebra/random.spad.pamphlet @@ -198,7 +198,7 @@ RandomIntegerDistributions(): with n := 0 mq := m -- m quo w**n - while (mqnext := mq quo w) > 0 repeat + while positive?(mqnext := mq quo w) repeat n := n + 1 mq := mqnext ridHack1(mq, n, w, l) |