From e57558ebe4635cb0183f94c50f9f61e8603807ff Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Sun, 22 Dec 2013 18:37:32 +0100
Subject: Yet another few seconds saved

---
 compiler/standardClient.ey | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/compiler/standardClient.ey b/compiler/standardClient.ey
index 1aaaa0a..e3c3c23 100644
--- a/compiler/standardClient.ey
+++ b/compiler/standardClient.ey
@@ -341,14 +341,18 @@
   } /execute deffst
 
   parse ==prog --
-  prog 0 -01 * 0 -01 * FIRST neq {
+  prog 0 -01 * 0 -01 * FIRST eq {
+    [
+      1 prog len range { prog * } each
+    ] =prog
+  } {
     [
       [ SPLIT 3 1 ]
       [ TERM { -- 1 }" ]
       [ JUMP 2 neg ]
       prog _ len dearray
     ] =prog
-  } rep
+  } ? *
   [
     prog _ len dearray
     [ MATCH ]
-- 
cgit v1.2.3