~ chicken-core (chicken-5) 8179b6ce8f28badf0089ea4f14e6f6698bfa6ac1

commit 8179b6ce8f28badf0089ea4f14e6f6698bfa6ac1
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Nov 3 14:44:29 2017 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Nov 3 14:44:29 2017 +0100

    specialization for pseudo-random-integer with fixnum arg

diff --git a/types.db b/types.db
index 79e1fd2f..476d9cfd 100644
--- a/types.db
+++ b/types.db
@@ -1571,8 +1571,9 @@
 
 ;; random
 
-(chicken.random#pseudo-random-integer (#(procedure #:clean #:enforce) chicken.random#pseudo-random-integer (integer) integer))
-(chicken.random#set-pseudo-random-seed! (#(procedure #:clean #:enforce) chicken.random#set-pseudo-random-seed! (* #!optional fixnum) undefined))
+(chicken.random#pseudo-random-integer (#(procedure #:clean #:enforce) chicken.random#pseudo-random-integer (integer) integer)
+                                      ((fixnum) (##core#inline "C_random_fixnum" #(1))))
+(chicken.random#set-pseudo-random-seed! (#(procedure #:clean #:enforce) chicken.random#set-pseudo-random-seed! ((or blob string) #!optional fixnum) undefined))
 (chicken.random#random-bytes (#(procedure #:clean #:enforce) chicken.random#random-bytes (#!optional * fixnum) *))
 
 ;; file