[latex3-commits] [latex3/latex3] main: Faster trailing "/" test (e6abec8cc)

[github at latex-project.org]

Repository : https://github.com/latex3/latex3
On branch  : main
Link       : https://github.com/latex3/latex3/commit/e6abec8ccd55a212e0bd3b2cb656c689c31cc918

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

commit e6abec8ccd55a212e0bd3b2cb656c689c31cc918
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Tue May 30 09:49:54 2023 +0100

    Faster trailing "/" test


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

e6abec8ccd55a212e0bd3b2cb656c689c31cc918
 l3kernel/l3file.dtx | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

diff --git a/l3kernel/l3file.dtx b/l3kernel/l3file.dtx
index 1b7388073..e9e7dfb54 100644
--- a/l3kernel/l3file.dtx
+++ b/l3kernel/l3file.dtx
@@ -2970,18 +2970,13 @@
   }
 \cs_new:Npn \@@_full_name_slash:n #1
   {
-    \@@_full_name_slash:nw { } #1 / \q_nil / \q_stop
+    \@@_full_name_slash:nw {#1} #1 \q_nil / \q_nil / \q_nil \q_stop
   }
-\cs_new:Npn \@@_full_name_slash:nw #1#2 / #3 / #4 \q_stop
+\cs_new:Npn \@@_full_name_slash:nw #1#2 / \q_nil / #3 \q_stop
   {
     \quark_if_nil:nTF {#3}
-      { #1#2 / }
-      {
-        \tl_if_blank:nTF {#3}
-          { \@@_full_name_slash:nw {#1#2} }
-          { \@@_full_name_slash:nw { #1#2 / #3 } }
-            / #4 \q_stop
-      }
+      { #1 / }
+      { #2 / }
   }
 \cs_new:Npn \@@_full_name_aux:nN #1
   { \exp_args:Nne \@@_full_name_aux:nnN {#1} { \@@_full_name_aux:n {#1} } }