From 7e70f4b73ae33c4aea6433bd1a7f4120dfac44c9 Mon Sep 17 00:00:00 2001
From: Terry Burton <tez@terryburton.co.uk>
Date: Tue, 19 Nov 2024 09:24:27 +0000
Subject: [PATCH] gs1process: Simplify

---
 src/gs1process.ps.src | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/gs1process.ps.src b/src/gs1process.ps.src
index b9fc13a3..269b0fed 100644
--- 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