haxala1r/ai-forth-experiment
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: add internal lookup for hidden compiler words

Browse Source 
Co-authored-by: aider (openrouter/moonshotai/kimi-k2.6) <aider@aider.chat>
This commit is contained in:
Emin Arslan
2026-05-03 17:45:40 +03:00
parent 0c5c53459a
commit 58e0de7ae1
4 changed files with 15 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files
forth_words.c
+6 -6
View File
@@ -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;