random' always produces
Float'.
This commit is contained in:
parent
ce7271b3f8
commit
b91880b05a
|
@ -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