mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-07 18:30:25 +02:00
Code Activity

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

Browse source
This commit is contained in:
Marius Vollmer 2004-08-19 18:41:05 +00:00
parent 3ff9283dd6
commit d6a1cb3cc6
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/strop.c
View file

@ -274,9 +274,7 @@ SCM_DEFINE (scm_string_copy, "string-copy", 1, 0, 0,
"Return a newly allocated copy of the given @var{string}.") "Return a newly allocated copy of the given @var{string}.")
#define FUNC_NAME s_scm_string_copy #define FUNC_NAME s_scm_string_copy
{ {
SCM_VALIDATE_STRING (1, str); return scm_c_substring (str, 0, scm_c_string_length (str));
return string_copy (str);
} }
#undef FUNC_NAME #undef FUNC_NAME