~ chicken-core (chicken-5) 1ceb5c74f74c134226b6751fceb9af31b298c848

commit 1ceb5c74f74c134226b6751fceb9af31b298c848
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Jan 9 14:08:06 2022 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Jan 9 14:08:06 2022 +0100

    Add rewrite rule for "locative-index"

diff --git a/c-platform.scm b/c-platform.scm
index 5035d311..fecd7076 100644
--- a/c-platform.scm
+++ b/c-platform.scm
@@ -1058,6 +1058,8 @@
 (rewrite '##sys#null-pointer? 17 1 "C_null_pointerp" "C_null_pointerp")
 (rewrite '##sys#immediate? 17 1 "C_immp")
 (rewrite 'chicken.locative#locative->object 17 1 "C_i_locative_to_object")
+(rewrite 'chicken.locative#locative->object 17 1 "C_i_locative_to_object")
+(rewrite 'chicken.locative#locative-index 17 1 "C_i_locative_index")
 (rewrite 'chicken.locative#locative-set! 17 2 "C_i_locative_set")
 (rewrite '##sys#foreign-fixnum-argument 17 1 "C_i_foreign_fixnum_argumentp")
 (rewrite '##sys#foreign-char-argument 17 1 "C_i_foreign_char_argumentp")