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.

Doug Coleman 2011-10-14 10:13:39 -07:00
parent 419f40f4ed
commit 41c10fdbf4
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