From 26872ffe4db87668bedc830ebd562b34d9022aee Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 24 Oct 2011 05:37:47 -0500
Subject: [PATCH] Rename vocab to lookup-vocab

---
 basis/bootstrap/help/help.factor            |  2 +-
 basis/bootstrap/ui/tools/tools.factor       |  2 +-
 basis/editors/editors.factor                |  2 +-
 basis/help/lint/checks/checks.factor        |  2 +-
 basis/help/markup/markup.factor             |  2 +-
 basis/help/vocabs/vocabs.factor             |  4 ++--
 basis/listener/listener.factor              |  4 ++--
 basis/see/see.factor                        |  2 +-
 basis/tools/profiler/profiler.factor        |  2 +-
 basis/tools/test/test.factor                |  2 +-
 basis/ui/tools/browser/browser.factor       |  2 +-
 basis/ui/tools/listener/listener.factor     |  2 +-
 basis/ui/tools/profiler/profiler.factor     |  2 +-
 basis/vocabs/errors/errors.factor           |  4 ++--
 basis/vocabs/files/files-tests.factor       |  4 ++--
 basis/vocabs/generated/generated.factor     |  2 +-
 basis/vocabs/hierarchy/hierarchy.factor     |  4 ++--
 basis/vocabs/prettyprint/prettyprint.factor |  6 +++---
 basis/vocabs/refresh/refresh.factor         | 10 +++++-----
 core/bootstrap/primitives.factor            |  2 +-
 core/compiler/units/units.factor            |  2 +-
 core/vocabs/loader/loader-tests.factor      | 18 +++++++++---------
 core/vocabs/loader/loader.factor            |  8 ++++----
 core/vocabs/parser/parser.factor            | 10 +++++-----
 core/vocabs/vocabs-docs.factor              |  4 ++--
 core/vocabs/vocabs.factor                   | 14 +++++++-------
 26 files changed, 59 insertions(+), 59 deletions(-)

diff --git a/basis/bootstrap/help/help.factor b/basis/bootstrap/help/help.factor
index f77829ae86..4d0f1e584c 100644
--- a/basis/bootstrap/help/help.factor
+++ b/basis/bootstrap/help/help.factor
@@ -9,7 +9,7 @@ IN: bootstrap.help
 
     t load-help? set-global
 
-    [ dup vocab [ ] [ no-vocab ] ?if ] load-vocab-hook [
+    [ dup lookup-vocab [ ] [ no-vocab ] ?if ] load-vocab-hook [
         dictionary get values
         [ docs-loaded?>> not ] filter
         [ load-docs ] each
diff --git a/basis/bootstrap/ui/tools/tools.factor b/basis/bootstrap/ui/tools/tools.factor
index 3efd156983..bae72d774c 100644
--- a/basis/bootstrap/ui/tools/tools.factor
+++ b/basis/bootstrap/ui/tools/tools.factor
@@ -1,7 +1,7 @@
 USING: kernel vocabs vocabs.loader sequences system ;
 
 { "ui" "help" "tools" }
-[ "bootstrap." prepend vocab ] all? [
+[ "bootstrap." prepend lookup-vocab ] all? [
     "ui.tools" require
 
     { "ui.backend.cocoa" } "ui.backend.cocoa.tools" require-when
diff --git a/basis/editors/editors.factor b/basis/editors/editors.factor
index a99849aa20..38978d3dc2 100644
--- a/basis/editors/editors.factor
+++ b/basis/editors/editors.factor
@@ -47,7 +47,7 @@ M: object edit
 M: link edit name>> edit ;
 
 M: string edit
-    dup vocab [ edit ] [ cannot-find-source ] ?if ;
+    dup lookup-vocab [ edit ] [ cannot-find-source ] ?if ;
 
 : edit-error ( error -- )
     [ error-file ] [ error-line ] bi
diff --git a/basis/help/lint/checks/checks.factor b/basis/help/lint/checks/checks.factor
index cd389d6367..a8b27e9b69 100644
--- a/basis/help/lint/checks/checks.factor
+++ b/basis/help/lint/checks/checks.factor
@@ -108,7 +108,7 @@ SYMBOL: vocab-articles
     ] each ;
 
 : vocab-exists? ( name -- ? )
-    [ vocab ] [ all-vocabs get member? ] bi or ;
+    [ lookup-vocab ] [ all-vocabs get member? ] bi or ;
 
 : check-modules ( element -- )
     \ $vocab-link swap elements [
diff --git a/basis/help/markup/markup.factor b/basis/help/markup/markup.factor
index 38659efa8b..d0f9c98acc 100644
--- a/basis/help/markup/markup.factor
+++ b/basis/help/markup/markup.factor
@@ -269,7 +269,7 @@ PRIVATE>
     [ [ ($link) ] textual-list ] ($span) ;
 
 : $vocab-links ( vocabs -- )
-    [ vocab ] map $links ;
+    [ lookup-vocab ] map $links ;
 
 : $breadcrumbs ( topics -- )
     [ [ ($link) ] " > " (textual-list) ] ($span) ;
diff --git a/basis/help/vocabs/vocabs.factor b/basis/help/vocabs/vocabs.factor
index d92ca5d91e..a42b417223 100644
--- a/basis/help/vocabs/vocabs.factor
+++ b/basis/help/vocabs/vocabs.factor
@@ -12,7 +12,7 @@ FROM: vocabs.hierarchy => child-vocabs ;
 IN: help.vocabs
 
 : about ( vocab -- )
-    [ require ] [ vocab help ] bi ;
+    [ require ] [ lookup-vocab help ] bi ;
 
 : vocab-row ( vocab -- row )
     [ <$pretty-link> ] [ vocab-summary ] bi 2array ;
@@ -226,7 +226,7 @@ C: <vocab-author> vocab-author
 
 : describe-words ( vocab -- )
     {
-        { [ dup vocab ] [ words $words ] }
+        { [ dup lookup-vocab ] [ words $words ] }
         { [ dup find-vocab-root ] [ vocab-is-not-loaded ] }
         [ drop ]
     } cond ;
diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor
index ea70a4ca46..bd47f63aa8 100644
--- a/basis/listener/listener.factor
+++ b/basis/listener/listener.factor
@@ -190,9 +190,9 @@ SYMBOL: interactive-vocabs
 
 : only-use-vocabs ( vocabs -- )
     clear-manifest
-    [ vocab ] filter
+    [ lookup-vocab ] filter
     [
-        vocab
+        lookup-vocab
         [ find-vocab-root not ]
         [ source-loaded?>> +done+ eq? ] bi or
     ] filter
diff --git a/basis/see/see.factor b/basis/see/see.factor
index df6eac1cca..0c02df3797 100644
--- a/basis/see/see.factor
+++ b/basis/see/see.factor
@@ -47,7 +47,7 @@ M: word print-stack-effect? drop t ;
 <PRIVATE
 
 : seeing-word ( word -- )
-    vocabulary>> dup [ vocab ] when pprinter-in set ;
+    vocabulary>> dup [ lookup-vocab ] when pprinter-in set ;
 
 : word-synopsis ( word -- )
     {
diff --git a/basis/tools/profiler/profiler.factor b/basis/tools/profiler/profiler.factor
index f002d95032..f95980ec28 100644
--- a/basis/tools/profiler/profiler.factor
+++ b/basis/tools/profiler/profiler.factor
@@ -56,7 +56,7 @@ IN: tools.profiler
 
 : vocab-profile. ( vocab -- )
     "Call counts for words in the " write
-    dup dup vocab write-object
+    dup dup lookup-vocab write-object
     " vocabulary:" print
     words counters counters. ;
 
diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index b222630b4b..47602e78f5 100644
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -136,7 +136,7 @@ SYMBOL: forget-tests?
     [ [ [ forget-source ] each ] with-compilation-unit ] [ drop ] if ;
 
 : test-vocab ( vocab -- )
-    vocab dup [
+    lookup-vocab dup [
         dup source-loaded?>> [
             vocab-tests
             [ [ run-test-file ] each ]
diff --git a/basis/ui/tools/browser/browser.factor b/basis/ui/tools/browser/browser.factor
index c9c2201e33..0adaa4028c 100644
--- a/basis/ui/tools/browser/browser.factor
+++ b/basis/ui/tools/browser/browser.factor
@@ -79,7 +79,7 @@ M: browser-gadget handle-gesture
     {
         [ key? ]
         [ [ dup word-link? [ name>> ] when ] dip key? ]
-        [ [ dup vocab-link? [ vocab ] when ] dip key? ]
+        [ [ dup vocab-link? [ lookup-vocab ] when ] dip key? ]
     } 2|| ;
 
 M: browser-gadget definitions-changed ( assoc browser -- )
diff --git a/basis/ui/tools/listener/listener.factor b/basis/ui/tools/listener/listener.factor
index dbcab33776..38035b4204 100644
--- a/basis/ui/tools/listener/listener.factor
+++ b/basis/ui/tools/listener/listener.factor
@@ -50,7 +50,7 @@ M: interactor manifest>>
     ] if ;
 
 : vocab-exists? ( name -- ? )
-    '[ _ { [ vocab ] [ find-vocab-root ] } 1|| ] [ drop f ] recover ;
+    '[ _ { [ lookup-vocab ] [ find-vocab-root ] } 1|| ] [ drop f ] recover ;
 
 GENERIC: (word-at-caret) ( token completion-mode -- obj )
 
diff --git a/basis/ui/tools/profiler/profiler.factor b/basis/ui/tools/profiler/profiler.factor
index fe27ec2b4a..48ead0cb34 100644
--- a/basis/ui/tools/profiler/profiler.factor
+++ b/basis/ui/tools/profiler/profiler.factor
@@ -95,7 +95,7 @@ M: method-renderer column-titles drop { "" "Method" "Count" } ;
     [ <model> ] dip <profiler-model> [ f prefix ] <arrow> ;
 
 : <vocabs-model> ( profiler -- model )
-    [ vocab-counters [ [ vocab ] dip ] assoc-map ] dip
+    [ vocab-counters [ [ lookup-vocab ] dip ] assoc-map ] dip
     <profiler-filter-model> ;
 
 : <generic-model> ( profiler -- model )
diff --git a/basis/vocabs/errors/errors.factor b/basis/vocabs/errors/errors.factor
index 8f88eb3816..454ed52b30 100644
--- a/basis/vocabs/errors/errors.factor
+++ b/basis/vocabs/errors/errors.factor
@@ -9,7 +9,7 @@ IN: vocabs.errors
 : vocab-heading. ( vocab -- )
     nl
     "==== " write
-    [ vocab-name ] [ vocab write-object ] bi ":" print
+    [ vocab-name ] [ lookup-vocab write-object ] bi ":" print
     nl ;
 
 : load-error. ( triple -- )
@@ -32,4 +32,4 @@ PRIVATE>
             recover
         ] each
         failures get
-    ] with-scope ;
\ No newline at end of file
+    ] with-scope ;
diff --git a/basis/vocabs/files/files-tests.factor b/basis/vocabs/files/files-tests.factor
index a12a9c957f..aed1ab5a77 100644
--- a/basis/vocabs/files/files-tests.factor
+++ b/basis/vocabs/files/files-tests.factor
@@ -3,7 +3,7 @@ USING: tools.test vocabs.files vocabs arrays grouping ;
 
 [ t ] [
     "kernel" vocab-files
-    "kernel" vocab vocab-files
+    "kernel" lookup-vocab vocab-files
     "kernel" <vocab-link> vocab-files
     3array all-equal?
-] unit-test
\ No newline at end of file
+] unit-test
diff --git a/basis/vocabs/generated/generated.factor b/basis/vocabs/generated/generated.factor
index cb1f847ece..37f7cf247a 100644
--- a/basis/vocabs/generated/generated.factor
+++ b/basis/vocabs/generated/generated.factor
@@ -4,7 +4,7 @@ USING: compiler.units continuations fry kernel vocabs vocabs.parser ;
 IN: vocabs.generated
 
 : generate-vocab ( vocab-name quot -- vocab )
-    [ dup vocab [ ] ] dip '[
+    [ dup lookup-vocab [ ] ] dip '[
         [
             [
                 [ _ with-current-vocab ] [ ] [ forget-vocab ] cleanup
diff --git a/basis/vocabs/hierarchy/hierarchy.factor b/basis/vocabs/hierarchy/hierarchy.factor
index d3436d7dba..48d9591ecc 100644
--- a/basis/vocabs/hierarchy/hierarchy.factor
+++ b/basis/vocabs/hierarchy/hierarchy.factor
@@ -87,7 +87,7 @@ PRIVATE>
 
 : child-vocabs ( prefix -- assoc )
     [ [ vocab-roots get ] dip '[ dup _ (child-vocabs) ] { } map>assoc ]
-    [ unrooted-child-vocabs [ vocab ] map f swap 2array ]
+    [ unrooted-child-vocabs [ lookup-vocab ] map f swap 2array ]
     bi suffix ;
 
 : all-vocabs ( -- assoc )
@@ -95,7 +95,7 @@ PRIVATE>
 
 : child-vocabs-recursive ( prefix -- assoc )
     [ [ vocab-roots get ] dip '[ dup _ (child-vocabs-recursive) ] { } map>assoc ]
-    [ unrooted-child-vocabs-recursive [ vocab ] map f swap 2array ]
+    [ unrooted-child-vocabs-recursive [ lookup-vocab ] map f swap 2array ]
     bi suffix ;
 
 MEMO: all-vocabs-recursive ( -- assoc )
diff --git a/basis/vocabs/prettyprint/prettyprint.factor b/basis/vocabs/prettyprint/prettyprint.factor
index 2cdec0d382..bca011227f 100644
--- a/basis/vocabs/prettyprint/prettyprint.factor
+++ b/basis/vocabs/prettyprint/prettyprint.factor
@@ -8,7 +8,7 @@ FROM: io.styles => inset ;
 IN: vocabs.prettyprint
 
 : pprint-vocab ( vocab -- )
-    [ vocab-name ] [ vocab vocab-style ] bi styled-text ;
+    [ vocab-name ] [ lookup-vocab vocab-style ] bi styled-text ;
 
 : pprint-in ( vocab -- )
     [ \ IN: pprint-word pprint-vocab ] with-pprint ;
@@ -19,7 +19,7 @@ IN: vocabs.prettyprint
     [ vocab-name ] sort-with ;
 
 : pprint-using ( seq -- )
-    [ "syntax" vocab = not ] filter
+    [ "syntax" lookup-vocab = not ] filter
     sort-vocabs [
         \ USING: pprint-word
         [ pprint-vocab ] each
@@ -96,4 +96,4 @@ PRIVATE>
         { inset { 5 5 } }
     } [ manifest get pprint-manifest ] with-nesting
     nl nl
-] print-use-hook set-global
\ No newline at end of file
+] print-use-hook set-global
diff --git a/basis/vocabs/refresh/refresh.factor b/basis/vocabs/refresh/refresh.factor
index 3d9c91bbcd..bff3781e5a 100644
--- a/basis/vocabs/refresh/refresh.factor
+++ b/basis/vocabs/refresh/refresh.factor
@@ -22,7 +22,7 @@ IN: vocabs.refresh
 SYMBOL: changed-vocabs
 
 : changed-vocab ( vocab -- )
-    dup vocab changed-vocabs get and
+    dup lookup-vocab changed-vocabs get and
     [ dup changed-vocabs get set-at ] [ drop ] if ;
 
 : unchanged-vocab ( vocab -- )
@@ -58,12 +58,12 @@ SYMBOL: modified-docs
             [
                 [
                     [ modified-sources ]
-                    [ vocab source-loaded?>> ]
+                    [ lookup-vocab source-loaded?>> ]
                     [ vocab-source-path ]
                     tri (to-refresh)
                 ] [
                     [ modified-docs ]
-                    [ vocab docs-loaded?>> ]
+                    [ lookup-vocab docs-loaded?>> ]
                     [ vocab-docs-path ]
                     tri (to-refresh)
                 ] bi
@@ -78,8 +78,8 @@ SYMBOL: modified-docs
 : do-refresh ( modified-sources modified-docs unchanged -- )
     unchanged-vocabs
     [
-        [ [ vocab f >>source-loaded? drop ] each ]
-        [ [ vocab f >>docs-loaded? drop ] each ] bi*
+        [ [ lookup-vocab f >>source-loaded? drop ] each ]
+        [ [ lookup-vocab f >>docs-loaded? drop ] each ] bi*
     ]
     [
         union
diff --git a/core/bootstrap/primitives.factor b/core/bootstrap/primitives.factor
index eff14b2f96..55b134abac 100755
--- a/core/bootstrap/primitives.factor
+++ b/core/bootstrap/primitives.factor
@@ -32,7 +32,7 @@ architecture get {
 ! Now we have ( syntax-quot arch-quot layouts-quot ) on the stack
 
 ! Bring up a bare cross-compiling vocabulary.
-"syntax" vocab vocab-words bootstrap-syntax set
+"syntax" lookup-vocab vocab-words bootstrap-syntax set
 
 H{ } clone dictionary set
 H{ } clone root-cache set
diff --git a/core/compiler/units/units.factor b/core/compiler/units/units.factor
index ffbdbefbf2..ea362f3cb5 100644
--- a/core/compiler/units/units.factor
+++ b/core/compiler/units/units.factor
@@ -116,7 +116,7 @@ M: object always-bump-effect-counter? drop f ;
 
 : changed-vocabs ( assoc -- vocabs )
     [ drop word? ] assoc-filter
-    [ drop vocabulary>> dup [ vocab ] when dup ] assoc-map ;
+    [ drop vocabulary>> dup [ lookup-vocab ] when dup ] assoc-map ;
 
 : updated-definitions ( -- assoc )
     H{ } clone
diff --git a/core/vocabs/loader/loader-tests.factor b/core/vocabs/loader/loader-tests.factor
index 89afb50af7..d5fbacf5f1 100644
--- a/core/vocabs/loader/loader-tests.factor
+++ b/core/vocabs/loader/loader-tests.factor
@@ -16,7 +16,7 @@ IN: vocabs.loader.tests
 [ "vocabs.loader.test" >vocab-link ] unit-test
 
 [ t ]
-[ "kernel" >vocab-link "kernel" vocab = ] unit-test
+[ "kernel" >vocab-link "kernel" lookup-vocab = ] unit-test
 
 IN: vocabs.loader.test.2
 
@@ -28,7 +28,7 @@ IN: vocabs.loader.tests
 
 [ ] [
     "vocabs.loader.test.2" run
-    "vocabs.loader.test.2" vocab run
+    "vocabs.loader.test.2" lookup-vocab run
     "vocabs.loader.test.2" <vocab-link> run
 ] unit-test
 
@@ -42,7 +42,7 @@ IN: vocabs.loader.tests
 2 [
     [ "vocabs.loader.test.a" require ] must-fail
     
-    [ f ] [ "vocabs.loader.test.a" vocab source-loaded?>> ] unit-test
+    [ f ] [ "vocabs.loader.test.a" lookup-vocab source-loaded?>> ] unit-test
     
     [ t ] [
         "resource:core/vocabs/loader/test/a/a.factor"
@@ -111,7 +111,7 @@ IN: vocabs.loader.tests
 [ "kernel" <vocab-link> where ] unit-test
 
 [ { "resource:core/kernel/kernel.factor" 1 } ]
-[ "kernel" vocab where ] unit-test
+[ "kernel" lookup-vocab where ] unit-test
 
 [ ] [
     [
@@ -122,7 +122,7 @@ IN: vocabs.loader.tests
 
 [ +done+ ] [
     [ "vocabs.loader.test.d" require ] [ :1 ] recover
-    "vocabs.loader.test.d" vocab source-loaded?>>
+    "vocabs.loader.test.d" lookup-vocab source-loaded?>>
 ] unit-test
 
 : forget-junk ( -- )
@@ -172,18 +172,18 @@ forget-junk
 [ ] [ [ "vocabs.loader.test.j" require ] [ drop :1 ] recover ] unit-test
 
 [ ] [ "vocabs.loader.test.m" require ] unit-test
-[ f ] [ "vocabs.loader.test.n" vocab ] unit-test
+[ f ] [ "vocabs.loader.test.n" lookup-vocab ] unit-test
 [ ] [ "vocabs.loader.test.o" require ] unit-test
-[ t ] [ "vocabs.loader.test.n" vocab >boolean ] unit-test
+[ t ] [ "vocabs.loader.test.n" lookup-vocab >boolean ] unit-test
 
 [
     "mno" [ "vocabs.loader.test." swap suffix forget-vocab ] each
 ] with-compilation-unit
 
 [ ] [ "vocabs.loader.test.o" require ] unit-test
-[ f ] [ "vocabs.loader.test.n" vocab ] unit-test
+[ f ] [ "vocabs.loader.test.n" lookup-vocab ] unit-test
 [ ] [ "vocabs.loader.test.m" require ] unit-test
-[ t ] [ "vocabs.loader.test.n" vocab >boolean ] unit-test
+[ t ] [ "vocabs.loader.test.n" lookup-vocab >boolean ] unit-test
 
 [
     "mno" [ "vocabs.loader.test." swap suffix forget-vocab ] each
diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index c0995205e4..8f0974132e 100644
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@@ -88,7 +88,7 @@ require-when-table [ V{ } clone ] initialize
 : load-conditional-requires ( vocab -- )
     vocab-name require-when-vocabs get in? [
         require-when-table get [
-            [ [ vocab dup [ source-loaded?>> +done+ = ] when ] all? ] dip
+            [ [ lookup-vocab dup [ source-loaded?>> +done+ = ] when ] all? ] dip
             [ require ] curry when
         ] assoc-each
     ] when ;
@@ -119,7 +119,7 @@ PRIVATE>
     load-vocab drop ;
 
 : require-when ( if then -- )
-    over [ vocab ] all? [
+    over [ lookup-vocab ] all? [
         require drop
     ] [
         [ drop [ require-when-vocabs get adjoin ] each ]
@@ -127,7 +127,7 @@ PRIVATE>
     ] if ;
 
 : reload ( name -- )
-    dup vocab
+    dup lookup-vocab
     [ [ load-source ] [ load-docs ] bi ]
     [ require ]
     ?if ;
@@ -168,7 +168,7 @@ PRIVATE>
 [
     dup vocab-name blacklist get at* [ rethrow ] [
         drop dup find-vocab-root
-        [ (load-vocab) ] [ dup vocab [ ] [ no-vocab ] ?if ] if
+        [ (load-vocab) ] [ dup lookup-vocab [ ] [ no-vocab ] ?if ] if
     ] if
 ] load-vocab-hook set-global
 
diff --git a/core/vocabs/parser/parser.factor b/core/vocabs/parser/parser.factor
index 8d1d2664da..0259482686 100644
--- a/core/vocabs/parser/parser.factor
+++ b/core/vocabs/parser/parser.factor
@@ -221,17 +221,17 @@ M: extra-words update trim-forgotten ;
 M: exclude update trim-forgotten ;
 
 M: qualified update
-    dup vocab>> vocab [
+    dup vocab>> lookup-vocab [
         dup [ prefix>> ] [ vocab>> load-vocab ] bi qualified-words
         >>words
     ] [ drop f ] if ;
 
-M: vocab update dup name>> vocab eq? ;
+M: vocab update dup name>> lookup-vocab eq? ;
 
 : update-manifest ( manifest -- )
-    [ dup [ name>> vocab ] when ] change-current-vocab
-    [ [ drop vocab ] assoc-filter ] change-search-vocab-names
-    dup search-vocab-names>> keys [ vocab ] V{ } map-as >>search-vocabs
+    [ dup [ name>> lookup-vocab ] when ] change-current-vocab
+    [ [ drop lookup-vocab ] assoc-filter ] change-search-vocab-names
+    dup search-vocab-names>> keys [ lookup-vocab ] V{ } map-as >>search-vocabs
     qualified-vocabs>> [ update ] filter! drop ;
 
 M: manifest definitions-changed ( assoc manifest -- )
diff --git a/core/vocabs/vocabs-docs.factor b/core/vocabs/vocabs-docs.factor
index da40fdc3b9..c67cdb4508 100644
--- a/core/vocabs/vocabs-docs.factor
+++ b/core/vocabs/vocabs-docs.factor
@@ -26,7 +26,7 @@ $nl
 }
 "Looking up existing vocabularies and creating new vocabularies:"
 { $subsections
-    vocab
+    lookup-vocab
     child-vocabs
     create-vocab
 }
@@ -50,7 +50,7 @@ HELP: vocabs
 { $values { "seq" "a sequence of strings" } }
 { $description "Outputs a sequence of all defined vocabulary names." } ;
 
-HELP: vocab
+HELP: lookup-vocab
 { $values { "vocab-spec" "a vocabulary specifier" } { "vocab" vocab } }
 { $description "Outputs a named vocabulary, or " { $link f } " if no vocabulary with this name exists." }
 { $class-description "Instances represent vocabularies." } ;
diff --git a/core/vocabs/vocabs.factor b/core/vocabs/vocabs.factor
index 38881673e9..1b7a84b03d 100644
--- a/core/vocabs/vocabs.factor
+++ b/core/vocabs/vocabs.factor
@@ -35,17 +35,17 @@ M: vocab-link vocab-name name>> ;
 
 M: string vocab-name ;
 
-GENERIC: vocab ( vocab-spec -- vocab )
+GENERIC: lookup-vocab ( vocab-spec -- vocab )
 
-M: vocab vocab ;
+M: vocab lookup-vocab ;
 
-M: object vocab ( name -- vocab ) vocab-name dictionary get at ;
+M: object lookup-vocab ( name -- vocab ) vocab-name dictionary get at ;
 
 GENERIC: vocab-words ( vocab-spec -- words )
 
 M: vocab vocab-words words>> ;
 
-M: object vocab-words vocab vocab-words ;
+M: object vocab-words lookup-vocab vocab-words ;
 
 M: f vocab-words ;
 
@@ -53,7 +53,7 @@ GENERIC: vocab-help ( vocab-spec -- help )
 
 M: vocab vocab-help help>> ;
 
-M: object vocab-help vocab vocab-help ;
+M: object vocab-help lookup-vocab vocab-help ;
 
 M: f vocab-help ;
 
@@ -61,7 +61,7 @@ GENERIC: vocab-main ( vocab-spec -- main )
 
 M: vocab vocab-main main>> ;
 
-M: object vocab-main vocab vocab-main ;
+M: object vocab-main lookup-vocab vocab-main ;
 
 M: f vocab-main ;
 
@@ -115,7 +115,7 @@ GENERIC: >vocab-link ( name -- vocab )
 
 M: vocab-spec >vocab-link ;
 
-M: string >vocab-link dup vocab [ ] [ <vocab-link> ] ?if ;
+M: string >vocab-link dup lookup-vocab [ ] [ <vocab-link> ] ?if ;
 
 : forget-vocab ( vocab -- )
     [ words forget-all ]
-- 
2.34.1