random' always produces
Float'.
original commit: b91880b05ae79659e45fb3ff0b0d62be3e5e9c1d
This commit is contained in:
parent
40de6c2ac7
commit
af5092b6cf
|
@ -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)]
|
||||
|
|
Loading…
Reference in New Issue
Block a user