add COMPILE, ERASE, .R

2021-11-21 18:09:41 +01:00
parent c0c88ebd42
commit 8248637157
5 changed files with 47 additions and 8 deletions
@@ -838,7 +838,6 @@ T{ ' W1 >BODY -> HERE }T
 T{ W1 -> HERE 1 + }T
 T{ W1 -> HERE 2 + }T

-0 [if] \ TODO
 \ ------------------------------------------------------------------------
 TESTING EVALUATE

@@ -883,7 +882,6 @@ DROP -> 0 }T            \ BLANK LINE RETURN ZERO-LENGTH STRING
 : GS4 SOURCE >IN ! DROP ;
 T{ GS4 123 456
 -> }T
-[then]

 \ ------------------------------------------------------------------------
 TESTING <# # #S #> HOLD SIGN BASE >NUMBER HEX DECIMAL
@@ -1051,7 +1049,6 @@ TESTING OUTPUT: . ." CR EMIT SPACE SPACES TYPE U.

 T{ OUTPUT-TEST -> }T

-0 [if] \ FIXME
 \ ------------------------------------------------------------------------
 TESTING INPUT: ACCEPT

@@ -1065,7 +1062,6 @@ CREATE ABUF 50 CHARS ALLOT
 ;

 T{ ACCEPT-TEST -> }T
-[then]

 \ ------------------------------------------------------------------------
 TESTING DICTIONARY SEARCH RULES