~ 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