From fea96706f189c950ee43825618d0a99774f5494f Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 13 Oct 2008 15:32:17 +0000 Subject: [PATCH] (random) returns a floating point number svn: r12005 --- collects/typed-scheme/private/base-env.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/private/base-env.ss b/collects/typed-scheme/private/base-env.ss index 1ddaed220b..2345f648ce 100644 --- a/collects/typed-scheme/private/base-env.ss +++ b/collects/typed-scheme/private/base-env.ss @@ -222,7 +222,7 @@ (-poly (a) (cl-> [(-Pathlike (-> a)) a] [(-Pathlike (-> a) Sym) a]))] -[random (cl-> [(-Integer) -Integer] [() -Integer])] +[random (cl-> [(-Integer) -Integer] [() N])] [assoc (-poly (a b) (a (-lst (-pair a b)) . -> . (-opt (-pair a b))))] [assf (-poly (a b)