diff options
author | Mark H Weaver <mhw@netris.org> | 2012-03-04 22:47:04 -0500 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2012-03-04 22:47:04 -0500 |
commit | 1a4d765381904a3b8afeec1a6d0f746626a49967 (patch) | |
tree | 64520b93282c514e94e16c25ef90890d6cd7da85 | |
parent | 07bc8e7c339fb43664e17a6e016702bc13760a14 (diff) | |
download | guile-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.c | 2 |
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)) { |