diff options
| author | Irene Knapp <ireneista@irenes.space> | 2026-05-20 19:59:18 -0700 |
|---|---|---|
| committer | Irene Knapp <ireneista@irenes.space> | 2026-05-20 20:03:01 -0700 |
| commit | 2fcfc1bcb59e0c1716a6a7dffcad4e0b90790a20 (patch) | |
| tree | 4ee37eaf51f26913170d062c14be29274b486618 /log-load.e | |
| parent | 53f52a67b7c5bb8af12c92a2f3a219e75dd9b0c3 (diff) | |
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
Diffstat (limited to 'log-load.e')
| -rw-r--r-- | log-load.e | 10 |
1 files changed, 9 insertions, 1 deletions
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 |