diff options
| author | Irene Knapp <ireneista@irenes.space> | 2026-04-20 22:23:54 -0700 |
|---|---|---|
| committer | Irene Knapp <ireneista@irenes.space> | 2026-04-20 22:23:54 -0700 |
| commit | a8d57a352e0f615fbc475159491d93e4f5c15673 (patch) | |
| tree | 594b6edf2e6ff2d8d1cd4d6d955b09063652eb5b /quine.asm | |
| parent | f8ebb33d2c555c5ead63f0f310bc379ec59f9c8d (diff) | |
print an error message when there's no word
Force-Push: yes Change-Id: I2c7eb0c842c930be17bdff2d0e270c53fb996f86
Diffstat (limited to 'quine.asm')
| -rw-r--r-- | quine.asm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/quine.asm b/quine.asm index 9e27285..7ff7cc0 100644 --- a/quine.asm +++ b/quine.asm @@ -6753,10 +6753,14 @@ cold_start: dq lit, 0, early_comma dq litstring, "eq", early_find, entry_to_execution_token, early_comma dq litstring, "0branch", early_find, entry_to_execution_token, early_comma - dq lit, 4*8, early_comma + dq lit, 8*8, early_comma dq litstring, "drop", early_find, entry_to_execution_token, early_comma dq litstring, "stack-deallocate-string-accumulator", early_find dq entry_to_execution_token, early_comma + dq litstring, "litstring", early_find, entry_to_execution_token, early_comma + dq lit, "No such ", early_comma, lit, "word.", early_comma + dq litstring, "emitstring", early_find, entry_to_execution_token + dq early_comma dq litstring, "exit", early_find, entry_to_execution_token, early_comma ; If the word is in the dictionary, run it. @@ -6768,7 +6772,7 @@ cold_start: ; Like a whirlpool and it never ends. dq litstring, "branch", early_find, entry_to_execution_token, early_comma - dq lit, -24*8, early_comma + dq lit, -28*8, early_comma dq early_here, fetch, lit, 8, packalign, early_here_store @@ -10329,7 +10333,7 @@ defword self_raw, 0 defword foo, 0 dq docol, litstring, "ia ia ftaghn", emitstring, exit defword boot_source, 0 - dq "foo " + dq "foo" dq 0 ; Routines that traverse the raw code need a way to guess where the end of a |