From cebbabf75066ef2410b44bb3c79a8f221731eec1 Mon Sep 17 00:00:00 2001
From: Hiroaki Yutani <yutani.ini@gmail.com>
Date: Thu, 27 Jun 2024 18:15:38 +0900
Subject: [PATCH] Replace STRING_PTR with STRING_PTR_RO (#1719)

Progress towards #1706
---
 src/rlang/vec.h | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/rlang/vec.h b/src/rlang/vec.h
index 46db7b02a..78f104028 100644
--- a/src/rlang/vec.h
+++ b/src/rlang/vec.h
@@ -47,12 +47,12 @@ const void* r_raw_cbegin(r_obj* x) {
 }
 static inline
 r_obj* const * r_chr_cbegin(r_obj* x) {
-  return (r_obj* const *) STRING_PTR(x);
+  return STRING_PTR_RO(x);
 }
 static inline
 r_obj* const * r_list_cbegin(r_obj* x) {
 #if (R_VERSION < R_Version(3, 5, 0))
-  return ((r_obj* const *) STRING_PTR(x));
+  return STRING_PTR_RO(x);
 #else
   return ((r_obj* const *) DATAPTR_RO(x));
 #endif