From 28a62b8ca457933b40dab82f50560d71bf9afd24 Mon Sep 17 00:00:00 2001
From: crc <>
Date: Tue, 21 Nov 2023 17:17:57 +0000
Subject: [PATCH] nga-c no longer needs to lookup/call err:notfound

FossilOrigin-Name: 48d6b870d550dd0238948557c2fd34668a046300db2775644e285634f06d4ceb
---
 RELEASE-NOTES    |  1 +
 vm/nga-c/retro.c | 10 +---------
 2 files changed, 2 insertions(+), 9 deletions(-)

diff --git a/RELEASE-NOTES b/RELEASE-NOTES
index 27f16c2..7d58890 100644
--- a/RELEASE-NOTES
+++ b/RELEASE-NOTES
@@ -48,5 +48,6 @@
   pipes
 - remove unused files from vm/nga-c
 - new example: vocabulary.retro
+- remove need to lookup & call err:notfound by nga-c
 
 ================================================================
diff --git a/vm/nga-c/retro.c b/vm/nga-c/retro.c
index 3d2a323..4e5fd10 100644
--- a/vm/nga-c/retro.c
+++ b/vm/nga-c/retro.c
@@ -64,7 +64,7 @@ struct NgaState {
   Handler IO_deviceHandlers[MAX_DEVICES];
   Handler IO_queryHandlers[MAX_DEVICES];
 
-  CELL Dictionary, NotFound, interpret;    /* Interfacing     */
+  CELL Dictionary, interpret;    /* Interfacing     */
   char string_data[8192];
 
 #ifdef ENABLE_FLOATS
@@ -647,12 +647,6 @@ void execute(NgaState *vm, CELL cell) {
   token = TIB;
   while (vm->cpu[vm->active].ip < IMAGE_SIZE) {
     if (vm->perform_abort == 0) {
-/* FIXME
-      if (vm->cpu[vm->active].ip == vm->NotFound) {
-        printf("\nERROR: Word Not Found: ");
-        printf("`%s`\n\n", string_extract(vm, token));
-      }
-*/
       if (vm->cpu[vm->active].ip == vm->interpret) {
         token = TOS;
       }
@@ -1199,7 +1193,6 @@ char *string_extract(NgaState *vm, CELL at) {
   are:
 
   Dictionary - the latest dictionary header
-  NotFound   - called when a word is not found
   interpret  - the heart of the interpreter/compiler
 
   I have to call this periodically, as the Dictionary will change as
@@ -1210,7 +1203,6 @@ char *string_extract(NgaState *vm, CELL at) {
 void update_rx(NgaState *vm) {
   vm->Dictionary = vm->memory[2];
   vm->interpret = vm->memory[5];
-  vm->NotFound = vm->memory[6];
   if (vm->memory[10] != 0) { execute(vm, vm->memory[10]); }
 }