basis: use <vocab-link> in a couple places.

diff --git a/basis/help/lint/lint.factor b/basis/help/lint/lint.factor
index 7e8c2e8c94d3f097782dd0b62a941312e43d7237..2a656f3526dd4b2e05894190e4cf1f1e2a309e96 100644 (file)
--- a/basis/help/lint/lint.factor
+++ b/basis/help/lint/lint.factor
@@ -67,7 +67,7 @@ PRIVATE>
     ] check-something ;
 
 : check-about ( vocab -- )
-    vocab-link boa dup
+    <vocab-link> dup
     '[ _ vocab-help [ lookup-article drop ] when* ] check-something ;
 
 : check-vocab ( vocab -- )

diff --git a/basis/vocabs/hierarchy/hierarchy.factor b/basis/vocabs/hierarchy/hierarchy.factor
index 440f1a6b94b779435fe3982a298b6093a90e661e..7a20bcfa1bb36f413fb21dd16170349f6b16d4bd 100644 (file)
--- a/basis/vocabs/hierarchy/hierarchy.factor
+++ b/basis/vocabs/hierarchy/hierarchy.factor
@@ -73,7 +73,7 @@ PRIVATE>
 : no-prefixes ( seq -- seq' ) [ vocab-prefix? not ] filter ;\r
 \r
 : convert-prefixes ( seq -- seq' )\r
-    [ dup vocab-prefix? [ name>> vocab-link boa ] when ] map ;\r
+    [ dup vocab-prefix? [ name>> <vocab-link> ] when ] map ;\r
 \r
 : remove-redundant-prefixes ( seq -- seq' )\r
     #! Hack.\r