From 5307d24315760121756871e9b82f08a4263e4be7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?P=C5=99emysl=20Janouch?= Date: Sat, 20 May 2017 21:38:08 +0200 Subject: Slightly fix fn_concatenate() --- ell.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ell.c b/ell.c index ef02127..e245958 100755 --- a/ell.c +++ b/ell.c @@ -1024,8 +1024,8 @@ defn (fn_concatenate) { } buffer_append_c (&buf, '\0'); - bool ok = !(ctx->memory_failure = buf.memory_failure) - && check (ctx, (*result = new_string (buf.s, buf.len))); + bool ok = !(ctx->memory_failure |= buf.memory_failure) + && check (ctx, (*result = new_string (buf.s, buf.len - 1))); free (buf.s); return ok; } -- cgit v1.2.3