From e563824cd2b55c414921fb94c3244288eda15f5e Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 14 Oct 2011 10:13:39 -0700
Subject: [PATCH] Don't report aliases as having a duplicate word definition as
 the word they alias in lint.

---
 extra/lint/lint.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/extra/lint/lint.factor b/extra/lint/lint.factor
index ee90f41595..71c69796e6 100644
--- 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