~ chicken-core (chicken-5) 8025792049501e870a0b0b5bf5beab1f1905f8ab

commit 8025792049501e870a0b0b5bf5beab1f1905f8ab
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Sep 2 22:03:22 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Sep 2 22:03:22 2011 +0200

    types.db fix for f64vector->list (thanks to Kon)

diff --git a/types.db b/types.db
index 3350b5a3..61d3361c 100644
--- a/types.db
+++ b/types.db
@@ -2270,7 +2270,7 @@
 (f64vector (#(procedure #:clean #:enforce) f64vector (#!rest number) (struct f64vector)))
 (f64vector->blob (#(procedure #:clean #:enforce) f64vector->blob ((struct f32vector)) blob))
 (f64vector->blob/shared (#(procedure #:clean #:enforce) f64vector->blob/shared ((struct f64vector)) blob))
-(f64vector->list (#(procedure #:clean #:enforce) f64vector->list ((struct f64vector)) blob))
+(f64vector->list (#(procedure #:clean #:enforce) f64vector->list ((struct f64vector)) (list float)))
 
 (f64vector-length (#(procedure #:clean #:enforce) f64vector-length ((struct f64vector)) fixnum)
 		  (((struct f32vector)) (##core#inline "C_u_i_64vector_length" #(1))))