diff options
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 ] |