diff --git a/forth_interp.c b/forth_interp.c index 27247a8..fe10c76 100644 --- a/forth_interp.c +++ b/forth_interp.c @@ -32,7 +32,7 @@ void process_token(const char* token) { if (w != NULL) { if (state == 0) { // Interpret mode if (w->code == do_docolon) { // Colon definition - ret_push(NULL); // Return address to stop interpreter + ret_push_ip(NULL); // Return address to stop interpreter ip = w->body; inner_interpreter(); } else { // Primitive word @@ -41,7 +41,7 @@ void process_token(const char* token) { } else { // Compile mode if (w->flags & (1 << 7)) { // Immediate word: execute now if (w->code == do_docolon) { - ret_push(NULL); + ret_push_ip(NULL); ip = w->body; inner_interpreter(); } else {