zhnumber: 兼容未提供 \tl_build_get_intermediate:NN 的旧版 expl3

CTeX-org · Apr 22, 2024 · c2e0b81 · c2e0b81
1 parent 54f7e54
commit c2e0b81
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/zhnumber/zhnumber.dtx b/zhnumber/zhnumber.dtx
@@ -1464,7 +1464,15 @@ Copyright and Licence
       FE3 .tl_set:N = \exp_not:c { l_@@_financial_ 1000 _tl } ,
       E44 .tl_set:N = \exp_not:c { l_@@_ s11 _tl }
     }
-  \tl_build_get_intermediate:NN \l_@@_kv_tl \l_@@_tmp_tl
+%    \end{macrocode}
+% \pkg{expl3} 2023-12-14 起，\cs{tl_build_get:NN} 是废弃命令。当 \pkg{l3debug}
+% 的 \texttt{deprecation} 开启，废弃命令被重定义为 \cs{outer} 的，无法在其他命令
+% 的参数中使用，所以这里用 \cs{use:c} 绕过。
+%    \begin{macrocode}
+  \cs_if_exist:NTF \tl_build_get_intermediate:NN
+    { \tl_build_get_intermediate:NN }
+    { \use:c { tl_build_get:NN } }
+      \l_@@_kv_tl \l_@@_tmp_tl
   \cs_set:Npn \@@_tmp:w #1 . #2 \q_stop
     { , #1 .groups:n = { user } }
   \clist_map_inline:Nn \l_@@_tmp_tl