~ chicken-core (chicken-5) 2fa64a735ba0a8b909e4722f702d2ec1e940143f

commit 2fa64a735ba0a8b909e4722f702d2ec1e940143f
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Nov 14 13:09:53 2020 +0100
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Fri Nov 27 17:00:09 2020 +0100

    Remove unnecessarily setting fixnum mark bit
    
    Signed-off-by: Peter Bex <peter@more-magic.net>

diff --git a/chicken.h b/chicken.h
index e8afcff6..df513169 100644
--- a/chicken.h
+++ b/chicken.h
@@ -1168,7 +1168,7 @@ typedef void (C_ccall *C_proc)(C_word, C_word *) C_noret;
 #define C_u_fixnum_and(n1, n2)          ((n1) & (n2))
 #define C_fixnum_and(n1, n2)            (C_u_fixnum_and(n1, n2) | C_FIXNUM_BIT)
 #define C_u_fixnum_or(n1, n2)           ((n1) | (n2))
-#define C_fixnum_or(n1, n2)             (C_u_fixnum_or(n1, n2) | C_FIXNUM_BIT)
+#define C_fixnum_or(n1, n2)             C_u_fixnum_or(n1, n2)
 #define C_fixnum_xor(n1, n2)            (((n1) ^ (n2)) | C_FIXNUM_BIT)
 #define C_fixnum_not(n)                 ((~(n)) | C_FIXNUM_BIT)
 #define C_fixnum_shift_left(n1, n2)     (C_fix(((C_uword)C_unfix(n1) << (C_uword)C_unfix(n2))))