diff options
-rw-r--r-- | guile_type_helpers.c | 2 | ||||
-rw-r--r-- | strbuf.c | 7 |
2 files changed, 4 insertions, 5 deletions
diff --git a/guile_type_helpers.c b/guile_type_helpers.c index 5c7090ec..ae433b01 100644 --- a/guile_type_helpers.c +++ b/guile_type_helpers.c @@ -5,7 +5,7 @@ SCM scm_from_strbuf(strbuf* s) { if (s->scm == NULL) { - s->scm = scm_from_utf8_stringn (s->mem, s->len - 1); + s->scm = scm_from_utf8_stringn (s->mem, s->len); scm_gc_protect_object(s->scm); } @@ -55,10 +55,9 @@ char strbuf_pop(strbuf* s) { } int strbuf_cap(strbuf* s) { - /* - * TODO check memmory usage - */ - return strbuf_append(s, 0); + strbuf_append(s, 0); + --s->len; + return 0; } int DEEP_COPY(strbuf)(strbuf* dest, strbuf* src) { |