diff options
| -rw-r--r-- | compiler/standardClient.ey | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/compiler/standardClient.ey b/compiler/standardClient.ey index b92d5a4..1aaaa0a 100644 --- a/compiler/standardClient.ey +++ b/compiler/standardClient.ey @@ -341,10 +341,15 @@ } /execute deffst parse ==prog -- + prog 0 -01 * 0 -01 * FIRST neq { + [ + [ SPLIT 3 1 ] + [ TERM { -- 1 }" ] + [ JUMP 2 neg ] + prog _ len dearray + ] =prog + } rep [ - [ SPLIT 3 1 ] - [ TERM { -- 1 }" ] - [ JUMP 2 neg ] prog _ len dearray [ MATCH ] ] =prog |