fix: use luatexbase to register pgfsys@strcmp

Signed-off-by: Henri Menke <[email protected]>
hmenke · Oct 6, 2024 · e828e69 · e828e69
1 parent 4da661c
commit e828e69
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/tex/generic/pgf/systemlayer/pgfsys.code.tex b/tex/generic/pgf/systemlayer/pgfsys.code.tex
@@ -1725,7 +1725,8 @@
 \else\ifdefined\directlua
   \directlua{
   local lft = lua.get_functions_table()
-  lft[\string#lft+1] = function()
+  local fid = luatexbase and luatexbase.new_luafunction("pgfsys@strcmp") or \string#lft+1
+  lft[fid] = function()
       local lhs = token.scan_string()
       local rhs = token.scan_string()
       if lhs < rhs then
@@ -1736,7 +1737,7 @@
           tex.sprint(-2, "1")
       end
   end
-  token.set_lua("pgfsys@strcmp", \string#lft, "global")
+  token.set_lua("pgfsys@strcmp", fid, "global")
   }
 \else
   \def\pgfsys@strcmp#1#2{\pgf@sys@fail{string comparison}}%