Fix lingering strbuf off by one error.

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);
 	}
 
diff --git a/strbuf.c b/strbuf.c
index f3becfc7..886276e5 100644
--- a/strbuf.c
+++ b/strbuf.c
@@ -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) {