diff options
| author | Irene Knapp <ireneista@irenes.space> | 2026-05-17 17:29:09 -0700 |
|---|---|---|
| committer | Irene Knapp <ireneista@irenes.space> | 2026-05-17 17:29:09 -0700 |
| commit | 3b41dbfa2338c11dd8398026c00922f20f32dc81 (patch) | |
| tree | 1761f2b8f2da972b830cf617d194c7c5be5b1535 /labels.e | |
| parent | 4f1a07da9c87a1560da34b8a96a9de4cdc90f1fc (diff) | |
implement log-load-create; add all the pack/unpack stuff to core.e
Force-Push: yes Change-Id: I04dd65a9eec71f9b50c8875bdcbe5d4be59888d5
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 |