From a8d57a352e0f615fbc475159491d93e4f5c15673 Mon Sep 17 00:00:00 2001 From: Irene Knapp Date: Mon, 20 Apr 2026 22:23:54 -0700 Subject: print an error message when there's no word Force-Push: yes Change-Id: I2c7eb0c842c930be17bdff2d0e270c53fb996f86 --- quine.asm | 10 +++++++--- 1 file 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 -- cgit 1.4.1