~ chicken-core (chicken-5) a2d7a0454cc2ab24bdfff8e6920a28e48a799182

commit a2d7a0454cc2ab24bdfff8e6920a28e48a799182
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Thu Feb 12 20:57:27 2015 +0100
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sun May 31 14:20:16 2015 +0200

    Fix silly bug in eqv?

diff --git a/chicken.h b/chicken.h
index a48a418e..df145825 100644
--- a/chicken.h
+++ b/chicken.h
@@ -2590,6 +2590,7 @@ C_inline C_word C_i_eqvp(C_word x, C_word y)
                      C_block_header(x) == C_STRUCTURE3_TAG &&
                      (C_block_item(x, 0) == C_ratnum_type_tag ||
                       C_block_item(x, 0) == C_cplxnum_type_tag) &&
+                     C_block_item(x, 0) == C_block_item(y, 0) &&
                      basic_eqvp(C_block_item(x, 1), C_block_item(y, 1)) &&
                      basic_eqvp(C_block_item(x, 2), C_block_item(y, 2))));
 }