summary refs log tree commit diff
path: root/labels.e
diff options
context:
space:
mode:
Diffstat (limited to 'labels.e')
-rw-r--r--labels.e4
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