Rename vocab to lookup-vocab

[factor.git] / core / compiler / units / units.factor

diff --git a/core/compiler/units/units.factor b/core/compiler/units/units.factor
index ffbdbefbf2806a4b9dfd64d318603fb68ca73699..ea362f3cb5bf86893c079dfd930a26646cf5d7dd 100644 (file)
--- 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