Fix bootstrap
parent
61836bc69a
commit
c2c07f8b22
|
@ -95,10 +95,10 @@ PRIVATE>
|
|||
"To define one, refer to \\ MAIN: help" print
|
||||
] ?if ;
|
||||
|
||||
<PRIVATE
|
||||
|
||||
SYMBOL: blacklist
|
||||
|
||||
<PRIVATE
|
||||
|
||||
: add-to-blacklist ( error vocab -- )
|
||||
vocab-name blacklist get dup [ set-at ] [ 3drop ] if ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue