add ACCEPT and KEY

2021-11-27 18:18:29 +01:00
parent 2632f748b1
commit 5724ac4273
5 changed files with 81 additions and 11 deletions
@@ -25,9 +25,6 @@ VARIABLE VERBOSE

 VARIABLE #ERRORS 0 #ERRORS !

-: ERROR TYPE QUIT ;
-
-0 [if]
 : ERROR      \ ( C-ADDR U -- ) DISPLAY AN ERROR MESSAGE FOLLOWED BY
      \ THE LINE THAT HAD THE ERROR.
   CR TYPE SOURCE TYPE       \ DISPLAY LINE CORRESPONDING TO ERROR
@@ -35,7 +32,6 @@ VARIABLE #ERRORS 0 #ERRORS !
   #ERRORS @ 1 + #ERRORS !
 \   QUIT  \ *** Uncomment this line to QUIT on an error
 ;
-[then]

 VARIABLE ACTUAL-DEPTH         \ STACK RECORD
 CREATE ACTUAL-RESULTS 20 CELLS ALLOT
@@ -1053,7 +1049,6 @@ TESTING OUTPUT: . ." CR EMIT SPACE SPACES TYPE U.

 T{ OUTPUT-TEST -> }T

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

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

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

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