srfi-27 bug fix from Chongkai
svn: r7235
This commit is contained in:
parent
37957c8548
commit
4a6b36accb
|
@ -17,8 +17,8 @@
|
|||
(define-struct random-source (generator))
|
||||
|
||||
(provide/contract
|
||||
(random-integer (-> positive-integer/c any))
|
||||
(random-source-make-integers (-> positive-integer/c any))
|
||||
(random-integer (-> random-source? any))
|
||||
(random-source-make-integers (-> random-source? any))
|
||||
(random-source-make-reals (case-> (-> random-source? any)
|
||||
(-> random-source? (and/c (>/c 0) (</c 1)) any))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user