Compiler working again.
authorTim Vaughan <tgvaughan@gmail.com>
Sat, 7 May 2016 08:01:35 +0000 (20:01 +1200)
committerTim Vaughan <tgvaughan@gmail.com>
Sat, 7 May 2016 08:01:35 +0000 (20:01 +1200)
src/forth.jl

index 940e6f3..3305d5e 100644 (file)
@@ -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])