From 04c6e8fcf8d691919e7ed77439f6c15272f40ebb Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 24 Apr 2009 00:10:48 -0500
Subject: [PATCH] Fix tools.errors unit test and help lint

---
 basis/tools/errors/errors-docs.factor  | 6 +++---
 basis/tools/errors/errors-tests.factor | 9 +--------
 2 files changed, 4 insertions(+), 11 deletions(-)

diff --git a/basis/tools/errors/errors-docs.factor b/basis/tools/errors/errors-docs.factor
index eb7b465d30..4eb9115d05 100644
--- a/basis/tools/errors/errors-docs.factor
+++ b/basis/tools/errors/errors-docs.factor
@@ -1,6 +1,6 @@
 IN: tools.errors
 USING: help.markup help.syntax source-files.errors words io
-compiler.errors ;
+compiler.errors classes ;
 
 ARTICLE: "compiler-errors" "Compiler errors"
 "After loading a vocabulary, you might see a message like:"
@@ -15,11 +15,11 @@ $nl
 "Compiler errors are reported using the " { $link "tools.errors" } " mechanism, and as a result, they are also are shown in the " { $link "ui.tools.error-list" } "." ;
 
 HELP: compiler-error
-{ $values { "error" compiler-error } { "word" word } }
+{ $values { "error" compiler-error } }
 { $description "Saves the error for viewing with " { $link :errors } "." } ;
 
 HELP: linkage-error
-{ $values { "error" linkage-error } { "word" word } }
+{ $values { "error" linkage-error } { "word" word } { "class" class } }
 { $description "Saves the error for viewing with " { $link :linkage } "." } ;
 
 HELP: :errors
diff --git a/basis/tools/errors/errors-tests.factor b/basis/tools/errors/errors-tests.factor
index a70aa32be8..709adafb4e 100644
--- a/basis/tools/errors/errors-tests.factor
+++ b/basis/tools/errors/errors-tests.factor
@@ -6,14 +6,7 @@ DEFER: blah
 [ ] [
     {
         T{ compiler-error
-           { error
-             T{ inference-error
-                f
-                T{ do-not-compile f blah }
-                +compiler-error+
-                blah
-             }
-           }
+           { error T{ do-not-compile f blah } }
            { asset blah }
         }
     } errors.