[latex3-commits] [git/LaTeX3-latex3-latex3] master: Faster dash pattern setting (36fe5db)

[Joseph Wright]

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

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

commit 36fe5db4c3df300ff70051c3b1f758438bcb9151
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Fri Mar 9 08:02:53 2018 +0000

    Faster dash pattern setting
    
    From Bruno.


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

36fe5db4c3df300ff70051c3b1f758438bcb9151
 l3experimental/l3draw/l3draw-state.dtx |   15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/l3experimental/l3draw/l3draw-state.dtx b/l3experimental/l3draw/l3draw-state.dtx
index 24b04e9..51a6748 100644
--- a/l3experimental/l3draw/l3draw-state.dtx
+++ b/l3experimental/l3draw/l3draw-state.dtx
@@ -96,27 +96,24 @@
 % \end{macro}
 %
 % \begin{macro}{\draw_dash_pattern:nn}
-% \begin{variable}{\l_@@_tmp_clist}
+% \begin{variable}{\l_@@_tmp_seq}
 %   Evaluated all of the list and pass it to the driver layer.
 %    \begin{macrocode}
 \cs_new_protected:Npn \draw_dash_pattern:nn #1#2
   {
     \group_begin:
-      \clist_clear:N \l_@@_tmp_clist
-      \clist_map_inline:nn {#1}
-        {
-          \clist_put_right:Nx \l_@@_tmp_clist
-            { \fp_to_dim:n {##1} }
-        }
+      \seq_set_from_clist:Nn \l_@@_tmp_seq {#1}
+      \seq_set_map:NNn \l_@@_tmp_seq \l_@@_tmp_seq
+        { \fp_to_dim:n {##1} }
       \use:x
         {
           \driver_draw_dash_pattern:nn
-            { \clist_use:Nnnn \l_@@_tmp_clist { , } { , } { , } }
+            { \seq_use:Nn \l_@@_tmp_seq { , } }
             { \fp_to_dim:n {#2} }
         }
     \group_end:
   }
-\clist_new:N \l_@@_tmp_clist
+\seq_new:N \l_@@_tmp_seq
 %    \end{macrocode}
 % \end{macro}
 % \end{macro}