(random) returns a floating point number

svn: r12005

original commit: fea96706f189c950ee43825618d0a99774f5494f
This commit is contained in:
Eli Barzilay 2008-10-13 15:32:17 +00:00
parent d3affbf868
commit d6372cf515

View File

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