suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix object name for new random function.

Browse Source
This commit is contained in:
Vincent St-Amour 2016-01-03 12:58:50 -06:00
parent 1e18a7e2b4
commit 4509430063
1 changed files with 30 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/collects/racket/private/pre-base.rkt
View File

@ -112,6 +112,7 @@
y)))) y))))
(begin-encourage-inline (begin-encourage-inline
(define-values (-random) ; more featureful than #%kernel's `random` (define-values (-random) ; more featureful than #%kernel's `random`
(procedure-rename
(case-lambda (case-lambda
[() (random)] ; no args, random float [() (random)] ; no args, random float
[(x) ; one arg, either random float with prng, or random integer [(x) ; one arg, either random float with prng, or random integer
@ -139,7 +140,8 @@
(enforce-greater min max) (enforce-greater min max)
(unless (pseudo-random-generator? prng) (unless (pseudo-random-generator? prng)
(raise-argument-error 'random "pseudo-random-generator?" prng)) (raise-argument-error 'random "pseudo-random-generator?" prng))
(+ min (random (- max min) prng))]))) (+ min (random (- max min) prng))])
'random)))
(define-values (new:collection-path) (define-values (new:collection-path)
(let ([collection-path (new-lambda (collection (let ([collection-path (new-lambda (collection