(scm_string_copy): Use scm_c_substring to get a copy-on-write string.

[bpt/guile.git] / libguile / strop.c

diff --git a/libguile/strop.c b/libguile/strop.c
index b4a7063..e964879 100644 (file)
--- a/libguile/strop.c
+++ b/libguile/strop.c
@@ -274,9 +274,7 @@ SCM_DEFINE (scm_string_copy, "string-copy", 1, 0, 0,
            "Return a newly allocated copy of the given @var{string}.")
 #define FUNC_NAME s_scm_string_copy
 {
-  SCM_VALIDATE_STRING (1, str);
-
-  return string_copy (str);
+  return scm_c_substring (str, 0, scm_c_string_length (str));
 }
 #undef FUNC_NAME