~ chicken-core (chicken-5) ac83e67c5ee6fdddde212eb5edeeedf1421451f8


commit ac83e67c5ee6fdddde212eb5edeeedf1421451f8
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Fri Nov 8 16:59:25 2013 +0100
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Fri Nov 8 16:59:25 2013 +0100

    Remove unused and silly C_invert_flag macro

diff --git a/chicken.h b/chicken.h
index 0ef4cc13..5c932ac2 100644
--- a/chicken.h
+++ b/chicken.h
@@ -1105,7 +1105,6 @@ extern double trunc(double);
 #define C_mk_nbool(x)              ((x) ? C_SCHEME_FALSE : C_SCHEME_TRUE)
 #define C_port_file(p)             C_CHECKp(p,C_portp(C_VAL1(p)),(C_FILEPTR)C_block_item(C_VAL1(p), 0))
 #define C_data_pointer(b)          C_CHECKp(b,C_blockp((C_word)C_VAL1(b)),(void *)(((C_SCHEME_BLOCK *)(C_VAL1(b)))->data))
-#define C_invert_flag(f)           (!(f))
 #define C_fitsinfixnump(n)         (((n) & C_INT_SIGN_BIT) == (((n) & C_INT_TOP_BIT) << 1))
 #define C_ufitsinfixnump(n)        (((n) & (C_INT_SIGN_BIT | (C_INT_SIGN_BIT >> 1))) == 0)
 #define C_quickflonumtruncate(n)   (C_fix((C_word)C_flonum_magnitude(n)))
Trap