Fix type of random to accept any Integer.

This commit is contained in:
Vincent St-Amour 2011-09-13 15:22:11 -04:00
parent 7e9e500818
commit 297cecebcc

View File

@ -1925,7 +1925,7 @@
;3.2.2.7 (Random Numbers)
[random
(cl->* (->opt -PosInt [-Pseudo-Random-Generator] -Nat)
(cl->* (->opt -Int [-Pseudo-Random-Generator] -Nat)
(->opt [-Pseudo-Random-Generator] -Flonum))]
[random-seed (-> -PosInt -Void)]