From d6a1cb3cc672ac2f73fe69fd3fa33036540b1d00 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Thu, 19 Aug 2004 18:41:05 +0000
Subject: [PATCH] (scm_string_copy): Use scm_c_substring to get a copy-on-write
 string.

---
 libguile/strop.c | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/libguile/strop.c b/libguile/strop.c
index b4a7063cf..e964879fa 100644
--- 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
 
-- 
2.20.1