[latex3-commits] [git/LaTeX3-latex3-latex3] master: l3cctab minor code streamlining (78373cb34)

[Joseph Wright]

Repository : https://github.com/latex3/latex3
On branch  : master
Link       : https://github.com/latex3/latex3/commit/78373cb3401dae4e78ec813e632b2856fa0a8093

>---------------------------------------------------------------

commit 78373cb3401dae4e78ec813e632b2856fa0a8093
Author: Bruno Le Floch <bruno at le-floch.fr>
Date:   Fri Jun 26 21:59:20 2020 +0200

    l3cctab minor code streamlining


>---------------------------------------------------------------

78373cb3401dae4e78ec813e632b2856fa0a8093
 l3kernel/l3cctab.dtx | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/l3kernel/l3cctab.dtx b/l3kernel/l3cctab.dtx
index 251db71de..b42f6c414 100644
--- a/l3kernel/l3cctab.dtx
+++ b/l3kernel/l3cctab.dtx
@@ -226,15 +226,15 @@
 %<*initex>
         \int_gadd:Nn \g_@@_allocate_int { 2 }
         \int_compare:nNnTF
-          \g_@@_allocate_int < { \c_max_register_int + 1 }
-           {
-             \tex_global:D \tex_chardef:D #1 \g_@@_allocate_int
-             \tex_initcatcodetable:D #1
-           }
+          \g_@@_allocate_int > \c_max_register_int
            {
              \__kernel_msg_fatal:nnx
                { kernel } { out-of-registers } { cctab }
            }
+           {
+             \tex_global:D \tex_chardef:D #1 \g_@@_allocate_int
+             \tex_initcatcodetable:D #1
+           }
 %</initex>
 %<*package>
         \newcatcodetable #1
@@ -258,9 +258,8 @@
     \cs_new_protected:Npn \@@_end:
       {
         \int_gsub:Nn \g_@@_stack_int { 2 }
-        \seq_if_empty:NTF \g_@@_stack_seq
+        \seq_gpop:NNF \g_@@_stack_seq \l_@@_tmp_tl
           { \tl_set:Nn \l_@@_tmp_tl { 0 } }
-          { \seq_gpop:NN \g_@@_stack_seq \l_@@_tmp_tl }
         \tex_catcodetable:D \l_@@_tmp_tl \scan_stop:
       }
 %    \end{macrocode}