From 2fcfc1bcb59e0c1716a6a7dffcad4e0b90790a20 Mon Sep 17 00:00:00 2001 From: Irene Knapp Date: Wed, 20 May 2026 19:59:18 -0700 Subject: so yeah, docol, exit, and lit all work in log-load now also s" and ." work in the label transform, and are used to produce an important error message during the log-load routine, since we can't know whether log-loaded words exist until runtime sweet, right? Change-Id: I6a67139538c2cbcef40a1093202b2b4e0ad6febb Force-Push: yes --- log-load.e | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'log-load.e') diff --git a/log-load.e b/log-load.e index f386b26..e496e04 100644 --- a/log-load.e +++ b/log-load.e @@ -199,7 +199,15 @@ ~ ~ (log address, string pointer -- log address, execution token or 0) : log-load-find-execution-token - log-load-find dup { entry-to-execution-token } if ; + dup 3unroll log-load-find dup + { + 3roll drop + entry-to-execution-token + } { + drop swap + ." No such word: " emitstring newline + 0 + } if-else ; ~ This is the same as "create", from interpret.e, except that it takes the -- cgit 1.4.1