some fixes

2021-11-23 01:14:35 +01:00
parent b7443ca9d4
commit b09bbc4afa
8 changed files with 116 additions and 73 deletions
@@ -1049,6 +1049,7 @@ TESTING OUTPUT: . ." CR EMIT SPACE SPACES TYPE U.

 T{ OUTPUT-TEST -> }T

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

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

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

 \ ------------------------------------------------------------------------
 TESTING DICTIONARY SEARCH RULES
@@ -1586,6 +1588,7 @@ T{ 25 RN2 EXECUTE -> 33 22 11 0 }T
 \ -----------------------------------------------------------------------------
 TESTING C"

+1 debug
 T{ : CQ1 C" 123" ; -> }T
 T{ CQ1 COUNT EVALUATE -> 123 }T
 T{ : CQ2 C" " ; -> }T