From 0ea4e9471a0cc3a278d205e5565c5c2444487085 Mon Sep 17 00:00:00 2001
From: Ed J <mohawk2@users.noreply.github.com>
Date: Fri, 20 Dec 2024 22:12:55 +0000
Subject: [PATCH] Slices use loop more

---
 lib/PDL/Slices.pd | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/PDL/Slices.pd b/lib/PDL/Slices.pd
index b592b48d8..d185014bc 100644
--- a/lib/PDL/Slices.pd
+++ b/lib/PDL/Slices.pd
@@ -1270,9 +1270,9 @@ EOC
        Code =>pp_line_numbers(__LINE__, <<'EOC'),
   PDL_Indx mi=0;
   loop (N) %{
-    PDL_Indx     len = $a(), li;
-    for (li=0; li < len; ++li, ++mi)
-      $c(M=>mi) = $b() + li;
+    PDL_Indx milim = mi + $a(), li = 0;
+    loop (M=mi:milim) %{ $c() = $b() + li++; %}
+    mi = milim;
   %}
 EOC
   Doc =><<'EOD'