From 3b41dbfa2338c11dd8398026c00922f20f32dc81 Mon Sep 17 00:00:00 2001 From: Irene Knapp Date: Sun, 17 May 2026 17:29:09 -0700 Subject: implement log-load-create; add all the pack/unpack stuff to core.e Force-Push: yes Change-Id: I04dd65a9eec71f9b50c8875bdcbe5d4be59888d5 --- labels.e | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'labels.e') 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 -- cgit 1.4.1