~ chicken-core (chicken-5) c6bafbf6a44ae093fd63afb28740e5a99172198d


commit c6bafbf6a44ae093fd63afb28740e5a99172198d
Author:     felix <bunny351@gmail.com>
AuthorDate: Wed May 19 07:32:23 2010 +0200
Commit:     felix <bunny351@gmail.com>
CommitDate: Wed May 19 07:32:23 2010 +0200

    types.db fix for read-u8vector! (thanks to Kon Lovett)

diff --git a/types.db b/types.db
index d8318400..2488bfde 100644
--- a/types.db
+++ b/types.db
@@ -1263,7 +1263,7 @@
 (make-u32vector (procedure make-u32vector (fixnum #!optional * * *) (struct u32vector)))
 (make-u8vector (procedure make-u8vector (fixnum #!optional * * *) (struct u8vector)))
 (read-u8vector (procedure read-u8vector (#!optional fixnum port) (struct u8vector)))
-(read-u8vector! (procedure read-u8vector! (fixnum (struct u8vector) #!optional port fixnum) (struct u8vector)))
+(read-u8vector! (procedure read-u8vector! (fixnum (struct u8vector) #!optional port fixnum) number))
 (release-number-vector (procedure release-number-vector (*) undefined))
 (s16vector (procedure s16vector (#!rest fixnum) (struct s16vector)))
 (s16vector->blob (procedure s16vector->blob ((struct s16vector)) blob))
Trap