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

bug fixes from Chongkai

Browse Source 
svn: r7152
This commit is contained in:
Matthew Flatt 2007-08-23 15:37:14 +00:00
parent acb4019fed
commit 5628ebcf90
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/srfi/27/random-bits.ss
View File

@ -20,7 +20,7 @@
(random-integer (-> positive-integer/c any)) (random-integer (-> positive-integer/c any))
(random-source-make-integers (-> positive-integer/c any)) (random-source-make-integers (-> positive-integer/c any))
(random-source-make-reals (case-> (-> random-source? any) (random-source-make-reals (case-> (-> random-source? any)
(-> random-source? (and/c (>/c 0) (</c 1)) any)))) (-> random-source? (and/c (>/c 0) (</c 1)) any))))
(define (random-integer n) (define (random-integer n)
(if (<= n 2147483647) (if (<= n 2147483647)
@ -69,12 +69,12 @@
(define-syntax random-source-pseudo-randomize! (define-syntax random-source-pseudo-randomize!
(syntax-rules (default-random-source) (syntax-rules (default-random-source)
((_ default-random-source . ij) ((_ default-random-source ij ...)
(random-seed (modulo (equal-hash-code 'ij) 2147483648))) (random-seed (modulo (equal-hash-code (list ij ...)) 2147483648)))
((_ s . ij) ((_ s ij ...)
(parameterize ((current-pseudo-random-generator (parameterize ((current-pseudo-random-generator
(random-source-generator s))) (random-source-generator s)))
(random-seed (modulo (equal-hash-code 'ij) 2147483648)))))) (random-seed (modulo (equal-hash-code (list ij ...)) 2147483648))))))
(define (random-source-make-integers s) (define (random-source-make-integers s)
(lambda (n) (lambda (n)
@ -90,7 +90,7 @@
(random-source-generator s))) (random-source-generator s)))
(random)))) (random))))
((s unit) ((s unit)
(let ((n (- (inexact->exact (floor (/ unit))) 2))) (let ((n (inexact->exact (floor (/ unit)))))
(lambda () (lambda ()
(parameterize ((current-pseudo-random-generator (parameterize ((current-pseudo-random-generator
(random-source-generator s))) (random-source-generator s)))