From 3ec5c7074d153cfd330a664ce7270cb25d225c38 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 6 Jun 2014 14:46:10 -0700
Subject: [PATCH] help.lint.checks: better error message for non-unique
 $see-also.

---
 basis/help/lint/checks/checks.factor | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/basis/help/lint/checks/checks.factor b/basis/help/lint/checks/checks.factor
index b491fd43c9..288e46cda7 100644
--- a/basis/help/lint/checks/checks.factor
+++ b/basis/help/lint/checks/checks.factor
@@ -105,9 +105,8 @@ SYMBOL: vocab-articles
     [ "$values should not contain null" simple-lint-error ] when ;
 
 : check-see-also ( element -- )
-    \ $see-also swap elements [
-        rest all-unique? t assert=
-    ] each ;
+    \ $see-also swap elements [ rest all-unique? ] all?
+    [ "$see-also are not unique" simple-lint-error ] unless ;
 
 : vocab-exists? ( name -- ? )
     [ lookup-vocab ] [ all-vocabs get member? ] bi or ;