HCoop
/
bpt
/
guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
3ff9283
)
(scm_string_copy): Use scm_c_substring to get a copy-on-write string.
author
Marius Vollmer
<mvo@zagadka.de>
Thu, 19 Aug 2004 18:41:05 +0000
(18:41 +0000)
committer
Marius Vollmer
<mvo@zagadka.de>
Thu, 19 Aug 2004 18:41:05 +0000
(18:41 +0000)
libguile/strop.c
patch
|
blob
|
blame
|
history
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