From: Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
Date: Wed, 6 Jul 2022 03:40:11 +0000 (+0900)
Subject: fix \kansuji (#90439)
X-Git-Tag: 20220807.0~9
X-Git-Url: http://git.osdn.jp/view?a=commitdiff_plain;h=3c0019d428175bdabab68a52244f47c7e0bd4842;p=luatex-ja%2Fluatexja.git

fix \kansuji (#90439)
---

diff --git a/src/ltj-compat.lua b/src/ltj-compat.lua
index d660915..dfb19ee 100644
--- a/src/ltj-compat.lua
+++ b/src/ltj-compat.lua
@@ -25,12 +25,12 @@ local function to_kansuji(num)
       num = -num; tex.write '-'
    end
    local s = ""
-   while num~=0 do
+   repeat
       s = utfchar(
          ltjs.get_stack_table(luatexja.stack_table_index.KSJ + num%10,
                                 '', tex.getcount 'ltj@@stack')) .. s
       num=math.floor(num/10)
-   end
+   until num==0
    tex.write(s)
 end