From fca502cc9896f8289b80f20d515f2adbf88ce6a0 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Sat, 7 May 2016 20:01:35 +1200 Subject: [PATCH] Compiler working again. --- src/forth.jl | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/forth.jl b/src/forth.jl index 940e6f3..3305d5e 100644 --- a/src/forth.jl +++ b/src/forth.jl @@ -812,6 +812,11 @@ PARSE = defPrimWord("PARSE", () -> begin return NEXT end) +BYE = defPrimWord("BYE", () -> begin + println("Bye!") + return 0 +end) + STATE, STATE_CFA = defNewVar("STATE", 0) INTERPRET = defWord("INTERPRET", @@ -834,7 +839,7 @@ INTERPRET = defWord("INTERPRET", COMMA, BRANCH, -36, # No word found, parse number - BTICK, LIT, COMMA, TRACE, NUMBER, COMMA, BRANCH, -44, + NUMBER, BTICK, LIT, COMMA, COMMA, TRACE, BRANCH, -44, # Interpreting DUP, FIND, QDUP, ZBRANCH, 7, @@ -861,11 +866,6 @@ QUIT = defWord("QUIT", INTERPRET, PROMPT, BRANCH,-4]) -BYE = defPrimWord("BYE", () -> begin - println("Bye!") - return 0 -end) - INCLUDE = defPrimWord("INCLUDE", () -> begin pushPS(32) callPrim(mem[WORD]) -- 2.20.1