[latex3-commits] [git/LaTeX3-latex3-latex3] main: Need an addition roll for DeviceN (4280bf70c)

[Joseph Wright]

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

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

commit 4280bf70ce2e2a175ad3e9be019e83d84958ed7f
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Tue Oct 12 08:57:47 2021 +0100

    Need an addition roll for DeviceN


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

4280bf70ce2e2a175ad3e9be019e83d84958ed7f
 l3kernel/l3color.dtx | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/l3kernel/l3color.dtx b/l3kernel/l3color.dtx
index 7e58f40d6..25e7a7fae 100644
--- a/l3kernel/l3color.dtx
+++ b/l3kernel/l3color.dtx
@@ -2284,8 +2284,9 @@
       {
         \prg_replicate:nn {#1}
           { neg ~ 1.0 ~ add ~ #1 ~ -1 ~ roll ~ }
-        \int_eval:n { #2 + 4 } ~ 4 ~ roll
-        \prg_replicate:nn {#2} { ~ pop }
+        \int_eval:n { #2 + #1 } ~ #1 ~ roll
+        \prg_replicate:nn {#2} { ~ pop } ~
+        #1 ~ 1 ~ roll
       }
     \use:x
       {
@@ -2330,7 +2331,7 @@
         \fp_compare:nNnF {#3} = \c_zero_fp
           {
             \int_eval:n { #1 - \l_@@_internal_int + #2 } ~ index ~
-              #3 ~ neg ~ mul ~ 1.0 ~ add ~ mul ~
+              -#3 ~ mul ~ 1.0 ~ add ~ mul ~
           }
         #2 ~ -1 ~ roll ~
       }