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

Don't report aliases as having a duplicate word definition as the word they alias in lint.

db4
Doug Coleman 2011-10-14 10:13:39 -07:00
parent 312704ae68
commit e563824cd2
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/lint/lint.factor
View File

@ -3,7 +3,7 @@
USING: accessors alien arrays assocs combinators.short-circuit USING: accessors alien arrays assocs combinators.short-circuit
fry hashtables io kernel math namespaces prettyprint quotations fry hashtables io kernel math namespaces prettyprint quotations
sequences sequences.deep shuffle slots.private vectors vocabs sequences sequences.deep shuffle slots.private vectors vocabs
words xml.data ; words xml.data words.alias ;
IN: lint IN: lint
SYMBOL: lint-definitions SYMBOL: lint-definitions
@ -67,6 +67,8 @@ lint-definitions get-global [ drop empty? not ] assoc-filter
[ nip [ vocabulary>> "windows.messages" = ] any? not ] assoc-filter [ nip [ vocabulary>> "windows.messages" = ] any? not ] assoc-filter
[ nip [ alias? ] any? not ] assoc-filter
! Remove trivial defs ! Remove trivial defs
[ drop trivial-defs member? not ] assoc-filter [ drop trivial-defs member? not ] assoc-filter