summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2012-03-04 22:47:04 -0500
committerMark H Weaver <mhw@netris.org>2012-03-04 22:47:04 -0500
commit1a4d765381904a3b8afeec1a6d0f746626a49967 (patch)
tree64520b93282c514e94e16c25ef90890d6cd7da85
parent07bc8e7c339fb43664e17a6e016702bc13760a14 (diff)
downloadguile-1a4d765381904a3b8afeec1a6d0f746626a49967.tar.gz
Don't call SYMBOL_STRINGBUF on a string
* libguile/strings.c (scm_i_make_symbol): Use STRING_STRINGBUF instead of SYMBOL_STRINGBUF to get the stringbuf of a string.
-rw-r--r--libguile/strings.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/strings.c b/libguile/strings.c
index 71eee6c48..494a658e6 100644
--- a/libguile/strings.c
+++ b/libguile/strings.c
@@ -748,7 +748,7 @@ scm_i_make_symbol (SCM name, scm_t_bits flags,
name = SH_STRING_STRING (name);
start += STRING_START (name);
}
- buf = SYMBOL_STRINGBUF (name);
+ buf = STRING_STRINGBUF (name);
if (start == 0 && length == STRINGBUF_LENGTH (buf))
{