diff options
Diffstat (limited to 'labels.e')
| -rw-r--r-- | labels.e | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/labels.e b/labels.e index 4e315f7..8716364 100644 --- a/labels.e +++ b/labels.e @@ -286,7 +286,9 @@ ~ (execution token -- output start, output length) : label-loop 0 swap - 0x1000 allocate dup + ~ TODO every time you double this to fix a crash, you must publicly + ~ apologize for deferring a real fix. those are the rules + 0x2000 allocate dup ~ (iteration count, execution token, output start, output point) { 3 pick 100 > } { 2 pick execute 4 roll 1+ 4 unroll |