fix: add internal lookup for hidden compiler words

Co-authored-by: aider (openrouter/moonshotai/kimi-k2.6) <aider@aider.chat>

forth.h

@@ -74,6 +74,7 @@ Cell* compile_pop(void);
 
 Word* add_primitive(const char* name, void (*code)(Word*), uint8_t flags);
 Word* lookup_word(const char* name);
+Word* lookup_word_internal(const char* name);
 
 char* next_token(void);
 

forth_dict.c

@@ -26,3 +26,10 @@ Word* lookup_word(const char* name) {
     }
     return NULL;
 }
+
+Word* lookup_word_internal(const char* name) {
+    for (Word* w = dict_head; w != NULL; w = w->prev) {
+        if (strcmp(w->name, name) == 0) return w;
+    }
+    return NULL;
+}

forth_interp.c

@@ -58,40 +58,4 @@ void process_token(const char* token) {
     } else { // Not a known word: try to parse as number
         char* end;
         long v = strtol(token, &end, 10);
-        if (end != token && *end == '\0') { // Valid integer
-            if (state == 0) { // Interpret mode: push number
-                data_push((int32_t)v);
-            } else { // Compile mode: compile lit + number
-                Word* lit_w = lookup_word("lit");
-                if (lit_w == NULL) {
-                    printf("Fatal: lit word not found\n");
-                    return;
-                }
-                if (compile_idx + 2 > COMPILE_BUF_SIZE) {
-                    printf("Compile buffer full\n");
-                    return;
-                }
-                compile_buf[compile_idx++] = (Cell){.word = lit_w};
-                compile_buf[compile_idx++] = (Cell){.num = (int32_t)v};
-            }
-        } else {
-            printf("Unknown word: '%s'\n", token);
-        }
-    }
-}
-
-void outer_interpreter(void) {
-    while (1) {
-        printf("ok ");
-        fflush(stdout);
-        if (fgets(input_buf, INPUT_BUF_SIZE, stdin) == NULL) {
-            break; // EOF
-        }
-        input_ptr = input_buf;
-        char* tok;
-        while ((tok = next_token()) != NULL) {
-            process_token(tok);
-        }
-    }
-    printf("\n");
-}
+        if

forth_words.c

@@ -388,7 +388,7 @@ void do_dot_quote(Word* w) {
         }
         size_t len = input_ptr - start;
         // Compile do_dot_quote_inner
-        Word* inner_w = lookup_word("do_dot_quote_inner");
+        Word* inner_w = lookup_word_internal("do_dot_quote_inner");
         if (inner_w == NULL) {
             printf("Fatal: do_dot_quote_inner not found\n");
             return;
@@ -708,7 +708,7 @@ void do_if(Word* w) {
         printf("IF only valid in compile mode\n");
         return;
     }
-    Word* zbranch = lookup_word("0branch");
+    Word* zbranch = lookup_word_internal("0branch");
     if (zbranch == NULL) {
         printf("Fatal: 0branch not found\n");
         return;
@@ -744,7 +744,7 @@ void do_else(Word* w) {
     Cell* if_offset = compile_pop();
     if (if_offset == NULL) return;
     
-    Word* branch_w = lookup_word("branch");
+    Word* branch_w = lookup_word_internal("branch");
     if (branch_w == NULL) {
         printf("Fatal: branch not found\n");
         return;
@@ -783,7 +783,7 @@ void do_until(Word* w) {
     Cell* begin_addr = compile_pop();
     if (begin_addr == NULL) return;
     
-    Word* zbranch = lookup_word("0branch");
+    Word* zbranch = lookup_word_internal("0branch");
     if (zbranch == NULL) {
         printf("Fatal: 0branch not found\n");
         return;
@@ -808,7 +808,7 @@ void do_while(Word* w) {
     Cell* begin_addr = compile_pop();
     if (begin_addr == NULL) return;
     
-    Word* zbranch = lookup_word("0branch");
+    Word* zbranch = lookup_word_internal("0branch");
     if (zbranch == NULL) {
         printf("Fatal: 0branch not found\n");
         return;
@@ -837,7 +837,7 @@ void do_repeat(Word* w) {
     Cell* while_offset = compile_pop();
     if (while_offset == NULL) return;
     
-    Word* branch_w = lookup_word("branch");
+    Word* branch_w = lookup_word_internal("branch");
     if (branch_w == NULL) {
         printf("Fatal: branch not found\n");
         return;