help.lint.checks: show which vocab-link is non-existent

diff --git a/basis/help/lint/checks/checks.factor b/basis/help/lint/checks/checks.factor
index dfac066116ed37f08d15db58316d03423f9f8fb9..cbaff6550b50f0347b9fd374e01da72843d0f6b1 100644 (file)
--- a/basis/help/lint/checks/checks.factor
+++ b/basis/help/lint/checks/checks.factor
@@ -127,10 +127,10 @@ SYMBOL: vocab-articles
 : check-modules ( element -- )
     \ $vocab-link swap elements [
         second
-        vocab-exists? [
-            "$vocab-link to non-existent vocabulary"
+        dup vocab-exists? [ drop ] [
+            "$vocab-link to non-existent vocabulary ``" "''" surround
             simple-lint-error
-        ] unless
+        ] if
     ] each ;
 
 : check-slots-tables ( element -- )