[latex3-commits] [git/LaTeX3-latex3-latex3] master: slightly faster tl_head:n (0bbd1deac)

[Bruno Le Floch]

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

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

commit 0bbd1deac0f6987ca6bfbd2ac0a02b36bb2bf5aa
Author: Jonathan Spratte <jspratte at yahoo.de>
Date:   Sat Aug 8 21:15:00 2020 +0200

    slightly faster tl_head:n


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

0bbd1deac0f6987ca6bfbd2ac0a02b36bb2bf5aa
 l3kernel/l3tl.dtx | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/l3kernel/l3tl.dtx b/l3kernel/l3tl.dtx
index 57f12e300..68eaf5989 100644
--- a/l3kernel/l3tl.dtx
+++ b/l3kernel/l3tl.dtx
@@ -2913,14 +2913,13 @@
     \exp_after:wN \@@_head_auxii:n \exp_after:wN {
       \if_false: } \fi: {#1}
   }
-\cs_new:Npn \@@_head_auxii:n #1
+\exp_args:Nno \use:n
+  { \cs_new:Npn \@@_head_auxii:n #1 }
   {
-    \exp_after:wN \if_meaning:w \exp_after:wN \q_@@_nil
-      \__kernel_tl_to_str:w \exp_after:wN { \use_none:n #1 } \q_@@_nil
-      \exp_after:wN \use_i:nn
-    \else:
-      \exp_after:wN \use_ii:nn
+    \@@_if_empty_if:o { \use_none:n #1 }
+      \exp_after:wN \use_ii:nnn
     \fi:
+    \use_ii:nn
       {#1}
       { \if_false: { \fi: \@@_head_auxi:nw #1 } }
   }