fix \kansuji (#90439)

diff --git a/src/ltj-compat.lua b/src/ltj-compat.lua
index d660915..dfb19ee 100644 (file)
--- 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