TICK problem solved. (Split into ['] and '.)

[forth.jl.git] / src / forth.jl

diff --git a/src/forth.jl b/src/forth.jl
index df86674..6578d75 100644 (file)
--- a/src/forth.jl
+++ b/src/forth.jl
@@ -822,12 +822,10 @@ IMMEDIATE = defPrimWord("IMMEDIATE", () -> begin
     return NEXT
 end, flags=F_IMMED)
 
-#TICK = defWord("'",
-#    [STATE_CFA, FETCH, ZBRANCH, 7,
-#    FROMR, DUP, INCR, TOR, FETCH, EXIT,
-#    WORD, FIND, TOCFA, EXIT])
-
 TICK = defWord("'",
+    [WORD, FIND, TOCFA, EXIT])
+
+BTICK = defWord("[']",
     [FROMR, DUP, INCR, TOR, FETCH, EXIT])