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

View File

@ -3,7 +3,7 @@
USING: accessors alien arrays assocs combinators.short-circuit
fry hashtables io kernel math namespaces prettyprint quotations
sequences sequences.deep shuffle slots.private vectors vocabs
words xml.data ;
words xml.data words.alias ;
IN: lint
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 [ alias? ] any? not ] assoc-filter
! Remove trivial defs
[ drop trivial-defs member? not ] assoc-filter