gs1process: Simplify

bwipp · Nov 19, 2024 · 7e70f4b · 7e70f4b
1 parent d05e412
commit 7e70f4b
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/gs1process.ps.src b/src/gs1process.ps.src
@@ -3240,10 +3240,10 @@ begin
                             { pop true exit } if  % Wholly matching any of the alternatives is sufficient
                         } forall
                         not {
-                            gs1syntax ai get /req get mark exch
-                            { { { (+) } forall pop ( OR ) } forall pop ( WITH ) } forall pop
-                            counttomark array astore exch pop
-                            dup 0 exch {length add} forall
+                            [
+                                gs1syntax ai get /req get
+                                { { { (+) } forall pop ( OR ) } forall pop ( WITH ) } forall pop
+                            ] dup 0 exch {length add} forall
                             ai length 49 add dup 3 -1 roll add string exch 3 -1 roll {
                                 dup length 2 index add
                                 3 index 4 2 roll putinterval