Working on error-list tool

diff --git a/basis/help/lint/lint.factor b/basis/help/lint/lint.factor
index 84a41deaa63b2770f988ed4cf8cd70a568db34e9..cb206d4fa3d1b15f4fa6ee4fe1fc58f619d7f32a 100755 (executable)
--- a/basis/help/lint/lint.factor
+++ b/basis/help/lint/lint.factor
@@ -4,6 +4,7 @@ USING: assocs continuations fry help help.lint.checks
 help.topics io kernel namespaces parser sequences
 source-files.errors tools.vocabs vocabs words classes
 locals ;
+FROM: help.lint.checks => all-vocabs ;
 IN: help.lint
 
 SYMBOL: lint-failures
@@ -38,7 +39,7 @@ PRIVATE>
 : check-word ( word -- )
     [ with-file-vocabs ] vocabs-quot set
     dup word-help [
-        dup '[
+        [ >link ] keep '[
             _ dup word-help
             [ check-values ]
             [ check-class-description ]

diff --git a/basis/ui/tools/error-list/error-list.factor b/basis/ui/tools/error-list/error-list.factor
index c8b66262fc73dede2ec961cd7a909ca5a83543d1..21557d92f2a165818c5672f84aaf512a3bf88396 100644 (file)
--- a/basis/ui/tools/error-list/error-list.factor
+++ b/basis/ui/tools/error-list/error-list.factor
@@ -139,16 +139,16 @@ TUPLE: error-display < track ;
     vertical error-display new-track
         add-toolbar
         swap error>> >>model
-        dup model>> [ print-error ] <pane-control> <scroller> 1 track-add ;
+        dup model>> [ [ print-error ] when* ] <pane-control> <scroller> 1 track-add ;
 
 : com-inspect ( error-display -- )
-    model>> value>> inspector ;
+    model>> value>> [ inspector ] when* ;
 
 : com-help ( error-display -- )
-    model>> value>> error>> error-help-window ;
+    model>> value>> [ error>> error-help-window ] when* ;
 
 : com-edit ( error-display -- )
-    model>> value>> edit-error ;
+    model>> value>> [ edit-error ] when* ;
 
 error-display "toolbar" f {
     { f com-inspect }