steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Check for words which are not classes but have a $class-description element anyway

db4
Slava Pestov 2009-03-10 17:28:17 -05:00
parent 712711e869
commit b3f09a9aed
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/help/lint/lint.factor
View File

@ -132,6 +132,11 @@ SYMBOL: vocabs-quot
[ check-descriptions ] [ check-descriptions ]
} cleave ; } cleave ;
: check-class-description ( word element -- )
[ class? not ]
[ { $class-description } swap elements empty? not ] bi* and
[ "A word that is not a class has a $class-description" throw ] when ;
: all-word-help ( words -- seq ) : all-word-help ( words -- seq )
[ word-help ] filter ; [ word-help ] filter ;
@ -153,7 +158,8 @@ M: help-error error.
dup '[ dup '[
_ dup word-help _ dup word-help
[ check-values ] [ check-values ]
[ nip [ check-nulls ] [ check-see-also ] [ check-markup ] tri ] 2bi [ check-class-description ]
[ nip [ check-nulls ] [ check-see-also ] [ check-markup ] tri ] 2tri
] check-something ] check-something
] [ drop ] if ; ] [ drop ] if ;