doing loop(n) when n=0 does literally nothing, so zap

PDLPorters · Feb 19, 2024 · 5af0f72 · 5af0f72
1 parent 25f3299
commit 5af0f72
Showing 1 changed file with 18 additions and 32 deletions.
diff --git a/Basic/Primitive/primitive.pd b/Basic/Primitive/primitive.pd
@@ -2878,38 +2878,24 @@ for my $func ( [
 
 
     my $code = undent q[
-                 if ( $SIZE(n) == 0 ){
-                    broadcastloop %{
-                      loop(n) %{
-                        $SETBAD(idx());
-                      %}
-                    %}
-                 }
-                 else {
-                   broadcastloop %{
-
-                     loop(n) %{
-
-                        if ( $ISGOOD(vals()) ) {
-                          PDL_Indx n1 = $SIZE(n)-1;
-                          PDL_Indx low = %LOW%;
-                          PDL_Indx high = %HIGH%;
-                          PDL_Indx mid;
-
-                          $GENERIC() value = $vals();
-
-                          /* determine sort order of data */
-                          int up = %UP%;
-                          %CODE%
-                        }
-
-                        else {
-                          $SETBAD(idx());
-                        }
-                     %}
-
-                   %}
-                 }
+                 loop(n) %{
+                    if ( $ISGOOD(vals()) ) {
+                      PDL_Indx n1 = $SIZE(n)-1;
+                      PDL_Indx low = %LOW%;
+                      PDL_Indx high = %HIGH%;
+                      PDL_Indx mid;
+
+                      $GENERIC() value = $vals();
+
+                      /* determine sort order of data */
+                      int up = %UP%;
+                      %CODE%
+                    }
+
+                    else {
+                      $SETBAD(idx());
+                    }
+                 %}
                  ----
                ];