From 02014322b736dc451df61d835ac8172c80e93dbd Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 7 Nov 2017 17:47:08 -0500 Subject: [PATCH] Properly count bytes in make-string --- scheme/base.sld | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/scheme/base.sld b/scheme/base.sld index f5451340..5ab42fd0 100644 --- a/scheme/base.sld +++ b/scheme/base.sld @@ -958,7 +958,8 @@ Cyc_rt_raise2(data, \"Expected character buf received\", fill); } c = obj_obj2char(fill); - buflen = Cyc_utf8_encode_char(ch_buf, 5, c); + Cyc_utf8_encode_char(ch_buf, 5, c); + buflen = strlen(ch_buf); num_cp = obj_obj2int(count); len = num_cp * buflen; if (len >= MAX_STACK_OBJ) {