diff options
Diffstat (limited to 'libguile/strings.c')
-rw-r--r-- | libguile/strings.c | 6 |
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. */ |