From 3f83a17851b8e93e4d5dbac94b10a6afd750dbee Mon Sep 17 00:00:00 2001 From: Irene Knapp Date: Thu, 28 May 2026 21:22:58 -0700 Subject: 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 --- dynamic.e | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'dynamic.e') diff --git a/dynamic.e b/dynamic.e index a260abe..55db683 100644 --- a/dynamic.e +++ b/dynamic.e @@ -50,6 +50,12 @@ : oldest-entry latest @ { dup @ } { @ } while ; +~ (dictionary handle -- entry pointer or 0) +: oldest-entry-in + dup + dup { { dup @ } { @ } while } if + dup 3roll = { drop 0 } if ; + ~ (entry pointer -- entry pointer or 0) : next-newer-entry latest @ @@ -57,6 +63,13 @@ { dup { 2dup @ != } if } { @ } while swap drop ; +~ (entry pointer, dictionary handle -- entry pointer or 0) +: next-newer-entry-in + @ + 2dup = { 2drop 0 exit } if + { dup { 2dup @ != } if } + { @ } while swap drop ; + ~ (entry pointer -- pointer) : guess-entry-end dup entry-flags@ 64 & 64 = { exit } if -- cgit 1.4.1