Slightly fix fn_concatenate()

This commit is contained in:
Přemysl Eric Janouch 2017-05-20 21:38:08 +02:00
parent d2155031d0
commit 5307d24315
Signed by: p
GPG Key ID: B715679E3A361BE6
1 changed files with 2 additions and 2 deletions

4
ell.c
View File

@ -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;
}