diff options
Diffstat (limited to 'flow-control.e')
| -rw-r--r-- | flow-control.e | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/flow-control.e b/flow-control.e index a1b066d..ba6a5b6 100644 --- a/flow-control.e +++ b/flow-control.e @@ -46,7 +46,8 @@ ~ (start pointer, length --) -: unless 2dup swap dup 5 8 * + 3unroll swap +: unless + 2dup swap dup 5 8 * + 3unroll swap ~ (start pointer, length, start pointer, adjusted start pointer, length) memmove ~ (start pointer, length) @@ -63,7 +64,6 @@ ~ (true start, true length, false start, false length --) : if-else - dup 4 roll dup 5 unroll + ~ First we slide the false-block forward, then the true-block. We slide ~ them both directly into their final positions, leaving space at the start |