summaryrefslogtreecommitdiff
path: root/libguile/strings.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/strings.c')
-rw-r--r--libguile/strings.c6
1 files changed, 6 insertions, 0 deletions
diff --git a/libguile/strings.c b/libguile/strings.c
index 8d0aa453f..5c49e33d8 100644
--- a/libguile/strings.c
+++ b/libguile/strings.c
@@ -507,6 +507,12 @@ scm_i_string_length (SCM str)
return STRING_LENGTH (str);
}
+int
+scm_i_string_is_mutable (SCM str)
+{
+ return !IS_RO_STRING (str);
+}
+
/* True if the string is 'narrow', meaning it has a 8-bit Latin-1
encoding. False if it is 'wide', having a 32-bit UCS-4
encoding. */