random' always produces Float'.

original commit: b91880b05ae79659e45fb3ff0b0d62be3e5e9c1d
This commit is contained in:
Sam Tobin-Hochstadt 2011-09-12 16:31:00 -04:00
parent 40de6c2ac7
commit af5092b6cf

View File

@ -1926,7 +1926,7 @@
[random
(cl->* (->opt -PosInt [-Pseudo-Random-Generator] -Nat)
(->opt [-Pseudo-Random-Generator] -InexactReal))]
(->opt [-Pseudo-Random-Generator] -Flonum))]
[random-seed (-> -PosInt -Void)]
[make-pseudo-random-generator (-> -Pseudo-Random-Generator)]