Fix bootstrap

db4
Slava Pestov 2008-11-23 00:24:36 -06:00
parent 61836bc69a
commit c2c07f8b22
1 changed files with 2 additions and 2 deletions

View File

@ -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 ;