From b491b69eef94db860146758ae1d34dffcbaab583 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 3 Feb 2019 00:55:34 +0100 Subject: Fix off by one error in scm_from_strbuf. --- scheme.scm.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'scheme.scm.c') diff --git a/scheme.scm.c b/scheme.scm.c index 0d987ffa..84e4f40c 100644 --- a/scheme.scm.c +++ b/scheme.scm.c @@ -32,7 +32,7 @@ SCM_DEFINE (make_calendar, "make-calendar", 1, 0, 0, } static SCM scm_from_strbuf(strbuf* s) { - return scm_from_utf8_stringn (s->mem, s->len); + return scm_from_utf8_stringn (s->mem, s->len - 1); } SCM_DEFINE (calendar_get_attr, "calendar-get-attr", 3, 0, 0, -- cgit v1.2.3