help.lint: don't use mutable vocab tuple as key in lint-failures hash

db4
Slava Pestov 2009-05-16 09:43:01 -05:00
parent 35ccf0231e
commit 3ff291cc92
1 changed files with 3 additions and 2 deletions

View File

@ -66,11 +66,12 @@ PRIVATE>
] check-something ;
: check-about ( vocab -- )
dup '[ _ vocab-help [ article drop ] when* ] check-something ;
vocab-link boa dup
'[ _ vocab-help [ article drop ] when* ] check-something ;
: check-vocab ( vocab -- )
"Checking " write dup write "..." print
[ vocab check-about ]
[ check-about ]
[ words [ check-word ] each ]
[ vocab-articles get at [ check-article ] each ]
tri ;