From 36fe5db4c3df300ff70051c3b1f758438bcb9151 Mon Sep 17 00:00:00 2001
From: Joseph Wright <joseph.wright@morningstar2.co.uk>
Date: Fri, 9 Mar 2018 08:02:53 +0000
Subject: [PATCH] Faster dash pattern setting

From Bruno.
---
 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 24b04e9cf2..51a6748334 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}