diff options
| author | Irene Knapp <ireneista@irenes.space> | 2026-05-28 21:22:58 -0700 |
|---|---|---|
| committer | Irene Knapp <ireneista@irenes.space> | 2026-05-28 21:22:58 -0700 |
| commit | 3f83a17851b8e93e4d5dbac94b10a6afd750dbee (patch) | |
| tree | 8b88024fabaf86783f5c58718dc2fb9c6c79ffda /labels.e | |
| parent | 0f3c90d8c67c7150feed36a1e620a6aa68f987a7 (diff) | |
move next-newer-entry-in and oldest-entry-in into dynamic.e
it's starting to get concerning how all this stuff needs to go in quine.asm but hopefully the hex transform will fix it Force-Push: yes Change-Id: I840e77c96fa0555bc01b9604d09f5ac4903d48bf
Diffstat (limited to 'labels.e')
| -rw-r--r-- | labels.e | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/labels.e b/labels.e index 0d2b60d..d90ab0a 100644 --- a/labels.e +++ b/labels.e @@ -75,22 +75,6 @@ entry-to-execution-token dup 8 + @ .hex64 space @ .hex8 newline ; -~ TODO this should go elsewhere -~ (dictionary handle) -: oldest-entry-in - dup - dup { { dup @ } { @ } while } if - dup 3roll = { drop 0 } if - ; - -~ TODO this should go elsewhere -~ (entry pointer, dictionary handle) -: next-newer-entry-in - @ - 2dup = { 2drop 0 exit } if - { dup { 2dup @ != } if } - { @ } while swap drop ; - ~ This prints the headings for all the labels that have been created. Note ~ that labels that have been created once stay in the dictionary forever, even ~ if subsequent passes neither use nor define them. That's because the control |