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

random: Remove redundant checking.

Browse Source
This commit is contained in:
Vincent St-Amour 2016-01-02 16:10:53 -06:00
parent acb7d999ba
commit 740b6dc198
1 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -112,18 +112,10 @@
(define-values (-random) ; more featureful than #%kernel's `random` (define-values (-random) ; more featureful than #%kernel's `random`
(case-lambda (case-lambda
[() (random)] ; no args, random float [() (random)] ; no args, random float
[(x) [(x) ; one arg, either random float with prng, or random integer
;; one arg, either random float with prng, or random integer ;; can just pass through to #%kernel's `random`, which will do the
(cond [(exact-positive-integer? x) ;; necessary checking
(enforce-random-int-range x) (random x)]
(random x)]
[(pseudo-random-generator? x)
(random x)]
[else
(raise-argument-error
'random
"(or/c (integer-in 1 4294967087) pseudo-random-generator?)"
x)])]
[(x y) [(x y)
;; two args, either max and prng, or min and max ;; two args, either max and prng, or min and max
(cond [(exact-positive-integer? y) ; min and max case (cond [(exact-positive-integer? y) ; min and max case