~ chicken-core (chicken-5) c765281f46fae8481a7f75e598cf9772b9e5d859


commit c765281f46fae8481a7f75e598cf9772b9e5d859
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Aug 9 13:31:12 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Aug 9 13:31:12 2011 +0200

    fixed incorrect result type in types.db entry for pointer-vector-set\!

diff --git a/types.db b/types.db
index e5154d6e..86acb838 100644
--- a/types.db
+++ b/types.db
@@ -1220,7 +1220,7 @@
 		       ((pointer-vector) (##sys#slot #(1) '1)))
 
 (pointer-vector-ref (procedure! pointer-vector-ref (pointer-vector fixnum) pointer))
-(pointer-vector-set! (procedure! pointer-vector-set! (pointer-vector fixnum pointer) pointer))
+(pointer-vector-set! (procedure! pointer-vector-set! (pointer-vector fixnum pointer) undefined))
 (pointer-s16-ref (procedure! pointer-s16-ref (pointer) fixnum))
 (pointer-s16-set! (procedure! pointer-s16-set! (pointer fixnum) undefined))
 (pointer-s32-ref (procedure! pointer-s32-ref (pointer) number))
Trap