forth: parsing/dictionary '/[']/EXECUTE/LITERAL/POSTPONE/WORD/FIND/>BODY (Hayes 463/638, 72%)

lib/forth/tests/test-phase5.sx

@@ -176,6 +176,31 @@
       "<# 0 0 65 HOLD #> TYPE"
       "A")))
 
+(define
+  forth-p5-dict-tests
+  (fn
+    ()
+    (forth-p5-check-top
+      "EXECUTE via tick"
+      ": INC 1+ ; 9 ' INC EXECUTE"
+      10)
+    (forth-p5-check-top
+      "['] inside def"
+      ": DUB 2* ; : APPLY ['] DUB EXECUTE ; 5 APPLY"
+      10)
+    (forth-p5-check-top
+      ">BODY of CREATE word"
+      "CREATE C 99 , ' C >BODY @"
+      99)
+    (forth-p5-check-stack
+      "WORD parses next token to counted-string"
+      ": A 5 ; BL WORD A COUNT TYPE"
+      (list))
+    (forth-p5-check-top
+      "FIND on known word -> non-zero"
+      ": A 5 ; BL WORD A FIND SWAP DROP"
+      -1)))
+
 (define
   forth-p4-check-output-passthrough
   (fn
@@ -195,6 +220,7 @@
     (forth-p5-mixed-tests)
     (forth-p5-double-tests)
     (forth-p5-format-tests)
+    (forth-p5-dict-tests)
     (dict
       "passed"
       forth-p5-passed