diff options
| author | Drahflow <drahflow@gmx.de> | 2013-12-22 18:37:32 +0100 |
|---|---|---|
| committer | Drahflow <drahflow@gmx.de> | 2013-12-22 18:37:32 +0100 |
| commit | e57558ebe4635cb0183f94c50f9f61e8603807ff (patch) | |
| tree | 3a8f34e84215af85e8e2f1d3811caa30447bf6f2 /compiler | |
| parent | cc43d35dc5bbb7f71bdc0c45e7d22561cec2bd27 (diff) | |
Yet another few seconds saved
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/standardClient.ey | 8 |
1 files 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 ] |