~ chicken-core (master) ab8c8c4bc06429c1cde261ff465b311591952ad6
commit ab8c8c4bc06429c1cde261ff465b311591952ad6
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Fri May 15 12:37:17 2026 +0200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Fri May 15 12:37:17 2026 +0200
disable rewrite rule for integer->char in safe mode to keep range check
diff --git a/c-platform.scm b/c-platform.scm
index 3e7dc34b..ea077314 100644
--- a/c-platform.scm
+++ b/c-platform.scm
@@ -668,7 +668,7 @@
(rewrite 'scheme#vector-length 6 "C_fix" "C_header_size" #f)
(rewrite 'scheme#char->integer 6 "C_fix" "C_character_code" #t)
-(rewrite 'scheme#integer->char 6 "C_make_character" "C_unfix" #t)
+(rewrite 'scheme#integer->char 6 "C_make_character" "C_unfix" #f)
(rewrite 'scheme#vector-length 2 1 "C_i_vector_length" #t)
(rewrite '##sys#vector-length 2 1 "C_i_vector_length" #t)
Trap