diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2004-08-16 20:48:22 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2004-08-16 20:48:22 +0000 |
| commit | 93926b536915ba394a22cb85bc42ec0380dfdf1d (patch) | |
| tree | 58e78166291948048a50900774207037bc9a5d6a | |
| parent | 41657caf29423a9dbe190a405c4fc112f4997f12 (diff) | |
| download | guile-93926b536915ba394a22cb85bc42ec0380dfdf1d.tar.gz | |
Do nothing in scm_i_string_free.
| -rw-r--r-- | libguile/strings.c | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/libguile/strings.c b/libguile/strings.c index 330e54640..83a4c9770 100644 --- a/libguile/strings.c +++ b/libguile/strings.c @@ -166,17 +166,6 @@ scm_i_string_mark (SCM str) void scm_i_string_free (SCM str) { - /* The refcount of a stringbuf is stored in its fourth word, so even - if the stringbuf of this string has already been swept, we can - safely decrement its refcount. - */ - if (!IS_SH_STRING (str)) - { -#if 0 - SCM buf = STRING_STRINGBUF (str); - SET_STRINGBUF_REFCOUNT (buf, STRINGBUF_REFCOUNT (buf) - 1); -#endif - } } /* Debugging |