~ chicken-core (chicken-5) d46bf47a9bb07d4c85aa7f4ab385e09ce82f8a9b

commit d46bf47a9bb07d4c85aa7f4ab385e09ce82f8a9b
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Fri Sep 25 23:34:25 2015 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Fri Sep 25 23:34:25 2015 +0200

    Fix misleading comment for C_u_fixnum_modulo

diff --git a/chicken.h b/chicken.h
index e53beefe..5c668022 100644
--- a/chicken.h
+++ b/chicken.h
@@ -1206,7 +1206,7 @@ typedef void (C_ccall *C_proc)(C_word, C_word *) C_noret;
 #define C_u_fixnum_difference(n1, n2)   ((n1) - (n2) + C_FIXNUM_BIT)
 #define C_fixnum_difference(n1, n2)     (C_u_fixnum_difference(n1, n2) | C_FIXNUM_BIT)
 #define C_u_fixnum_divide(n1, n2)       (C_fix(C_unfix(n1) / C_unfix(n2)))
-/* XXX TODO OBSOLETE: These 4 can be removed after recompiling c-platform.scm */
+/* XXX TODO OBSOLETE, but still used in unsafe mode in c-platform.scm */
 #define C_u_fixnum_modulo(n1, n2)       (C_fix(C_unfix(n1) % C_unfix(n2)))
 #define C_u_fixnum_and(n1, n2)          ((n1) & (n2))
 #define C_fixnum_and(n1, n2)            (C_u_fixnum_and(n1, n2) | C_FIXNUM_BIT)