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