diff options
| author | Irene Knapp <ireneista@irenes.space> | 2026-05-22 03:57:59 -0700 |
|---|---|---|
| committer | Irene Knapp <ireneista@irenes.space> | 2026-05-22 03:57:59 -0700 |
| commit | 3f3bda4692b4017c7ad6ed1c434313b9dcc62cfb (patch) | |
| tree | ee847faa5e64ce80a00a0bd2160ebb576b8d4ad4 /flow-control.e | |
| parent | 83953f9e4b4fb3130c8ac5e1b8408a2830e21c23 (diff) | |
small changes towards self-hosting
Force-Push: yes Change-Id: I6cf15b4e37b66a04afd5af9dfd9cc3d5eb52b894
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 |