srfi-27 bug fix from Chongkai

svn: r7235
This commit is contained in:
Matthew Flatt 2007-08-31 00:36:05 +00:00
parent 37957c8548
commit 4a6b36accb

View File

@ -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))))