From 4a6b36accb0a38240d2130381a73582a906fa5ad Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 31 Aug 2007 00:36:05 +0000 Subject: [PATCH] srfi-27 bug fix from Chongkai svn: r7235 --- collects/srfi/27/random-bits.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/srfi/27/random-bits.ss b/collects/srfi/27/random-bits.ss index e8f7840301..20ff97ad4e 100644 --- a/collects/srfi/27/random-bits.ss +++ b/collects/srfi/27/random-bits.ss @@ -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) (