From d6372cf515027e2da843d11f346c7d824f870b08 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 original commit: fea96706f189c950ee43825618d0a99774f5494f --- 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 1ddaed22..2345f648 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)