~ chicken-core (chicken-5) 26580f19bbb4455246c21e8b23412b2dd2d24aca

commit 26580f19bbb4455246c21e8b23412b2dd2d24aca
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Sat Jun 15 17:18:32 2013 +0200
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Sat Jun 15 17:18:32 2013 +0200

    Fix segfault caused by srfi-4-vector? check (check for non-immediateness first)

diff --git a/library.scm b/library.scm
index 16e39436..31ee708c 100644
--- a/library.scm
+++ b/library.scm
@@ -4260,7 +4260,8 @@ EOF
 (define (##sys#block-address x) (##core#inline_allocate ("C_block_address" 4) x))
 (define (##sys#locative? x) (##core#inline "C_locativep" x))
 (define (##sys#srfi-4-vector? x)
-  (and (##sys#generic-structure? x)
+  (and (##core#inline "C_blockp" x)
+       (##sys#generic-structure? x)
        (memq (##sys#slot x 0)
              '(u8vector u16vector s8vector s16vector u32vector s32vector f32vector f64vector))))