diff options
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 |