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

[Joseph Wright]

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

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

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

    \currentgrouplevel is actually unnecessary


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

dac033a8b8f9f3ca04316eda3ffc25c4ea53ba8d
 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 }