From 09140f93c7ce77eee24b1078425f5933acf75d7c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 2 Mar 2019 17:47:41 +0100 Subject: Fix lingering strbuf off by one error. --- guile_type_helpers.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'guile_type_helpers.c') 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); } -- cgit v1.2.3