[latex3-commits] [git/LaTeX3-latex3-latex3] cctab: \currentgrouplevel is actually unnecessary (a5ef4aec3)

[PhelypeOleinik]

Repository : https://github.com/latex3/latex3
On branch  : cctab
Link       : https://github.com/latex3/latex3/commit/a5ef4aec3e66e85fd64b73231682c31b0836e0bb

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

commit a5ef4aec3e66e85fd64b73231682c31b0836e0bb
Author: PhelypeOleinik <tex.phelype at gmail.com>
Date:   Thu Jul 2 23:10:39 2020 -0300

    \currentgrouplevel is actually unnecessary


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

a5ef4aec3e66e85fd64b73231682c31b0836e0bb
 l3kernel/l3cctab.dtx | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/l3kernel/l3cctab.dtx b/l3kernel/l3cctab.dtx
index 7f51fd77b..8e97e92e5 100644
--- a/l3kernel/l3cctab.dtx
+++ b/l3kernel/l3cctab.dtx
@@ -575,9 +575,7 @@
   {
     \seq_gpush:Nx \g_@@_group_seq
       { \int_use:N \tex_currentgrouplevel:D }
-    \cs_set_eq:cN
-      { @@_group_ \int_use:N \tex_currentgrouplevel:D _ #1 _chk: }
-      \prg_do_nothing:
+    \cs_set_eq:cN { @@_group_ #1 _chk: } \prg_do_nothing:
   }
 \cs_new_protected:Npn \@@_chk_group_end:n #1
   {
@@ -585,7 +583,8 @@
     \int_compare:nNnTF
         { \tex_currentgrouplevel:D } = { \l_@@_internal_b_tl }
       {
-        \cs_if_exist:cF { @@_group_ \l_@@_internal_b_tl _ #1 _chk: }
+        \cs_if_exist:cTF { @@_group_ #1 _chk: }
+          { \cs_set_eq:cN { @@_group_ #1 _chk: } \tex_undefined:D }
           {
             \__kernel_msg_error:nnx { kernel } { cctab-group-mismatch }
               { different~group }