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

diff --git a/extra/lint/lint.factor b/extra/lint/lint.factor
index ee90f41595ce62325ecc1a7a2c4ef581e4237b4b..71c69796e61d13b80b4a55bd428d1349c1f7b569 100644 (file)
--- a/extra/lint/lint.factor
+++ b/extra/lint/lint.factor
@@ -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