help.lint: don't use mutable vocab tuple as key in lint-failures hash
parent
35ccf0231e
commit
3ff291cc92
|
@ -66,11 +66,12 @@ PRIVATE>
|
||||||
] check-something ;
|
] check-something ;
|
||||||
|
|
||||||
: check-about ( vocab -- )
|
: 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 -- )
|
: check-vocab ( vocab -- )
|
||||||
"Checking " write dup write "..." print
|
"Checking " write dup write "..." print
|
||||||
[ vocab check-about ]
|
[ check-about ]
|
||||||
[ words [ check-word ] each ]
|
[ words [ check-word ] each ]
|
||||||
[ vocab-articles get at [ check-article ] each ]
|
[ vocab-articles get at [ check-article ] each ]
|
||||||
tri ;
|
tri ;
|
||||||
|
|
Loading…
Reference in New Issue