[latex3-commits] [git/LaTeX3-latex3-latex3] master: Split a few __tl (d6fc40b)

[Joseph Wright]

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

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

commit d6fc40b9136ec27a00ae11da38f1dcff3e82aa1e
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Tue Apr 3 11:23:51 2018 +0100

    Split a few __tl
    
    As these are 'legit' at this level.


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

d6fc40b9136ec27a00ae11da38f1dcff3e82aa1e
 l3kernel/l3str.dtx |   10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/l3kernel/l3str.dtx b/l3kernel/l3str.dtx
index 6738c8b..4f191c1 100644
--- a/l3kernel/l3str.dtx
+++ b/l3kernel/l3str.dtx
@@ -2046,7 +2046,7 @@
               \str_if_eq:nnF { #5 ~ } {#7}
                 {
                   \tl_const:cx
-                    { c__tl_mixed_case_ \utex_char:D "#1 _tl }
+                    { c_ _tl_mixed_case_ \utex_char:D "#1 _tl }
                     { \utex_char:D "#7 }
                 }
             }
@@ -2106,7 +2106,7 @@
         }
       \cs_set_protected:Npn \@@_store:nnnnn #1#2#3#4#5
         {
-          \tl_const:cx { c__tl_ #2 _case_ \utex_char:D "#1 _tl }
+          \tl_const:cx { c_ _tl_ #2 _case_ \utex_char:D "#1 _tl }
             {
               \utex_char:D "#3 ~
               \utex_char:D "#4 ~
@@ -2116,7 +2116,7 @@
           \str_if_eq:nnF {#2} { mixed }
             {
               \str_const:cx { c_@@_ #2 _case_ \utex_char:D "#1 _str }
-                { \tl_use:c { c__tl_ #2 _case_ \utex_char:D "#1 _tl } }
+                { \tl_use:c { c_ _tl_ #2 _case_ \utex_char:D "#1 _tl } }
             }
         }
       \@@_map_inline:n { SpecialCasing.txt }
@@ -2137,8 +2137,8 @@
           \str_const:cn { c_@@_fold_case_  #1 _str } {#2}
           \str_const:cn { c_@@_lower_case_ #1 _str } {#2}
           \str_const:cn { c_@@_upper_case_ #2 _str } {#1}
-          \tl_const:cn { c__tl_lower_case_ #1 _tl } {#2}
-          \tl_const:cn { c__tl_upper_case_ #2 _tl } {#1}
+          \tl_const:cn { c_ _tl_lower_case_ #1 _tl } {#2}
+          \tl_const:cn { c_ _tl_upper_case_ #2 _tl } {#1}
           \@@_tmp:NN
         }
       \@@_tmp:NN