diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-02-03 00:55:34 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-02-03 00:55:34 +0100 |
commit | b491b69eef94db860146758ae1d34dffcbaab583 (patch) | |
tree | 9d844c7a64de8957362019392e12044b16967763 /scheme.scm.c | |
parent | Change Scheme interop in C to use guile-snarf. (diff) | |
download | calp-b491b69eef94db860146758ae1d34dffcbaab583.tar.gz calp-b491b69eef94db860146758ae1d34dffcbaab583.tar.xz |
Fix off by one error in scm_from_strbuf.
Diffstat (limited to 'scheme.scm.c')
-rw-r--r-- | scheme.scm.c | 2 |
1 files changed, 1 insertions, 1 deletions
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, |