Rename lookup to lookup-word.

[factor.git] / extra / classes / struct / vectored / vectored.factor

diff --git a/extra/classes/struct/vectored/vectored.factor b/extra/classes/struct/vectored/vectored.factor
index e6f45ab245c539b7a8c1fec8a0e5f6aa939faee4..4ad9f4f061288d35b111c205049ddc23e1d244fe 100644 (file)
--- a/extra/classes/struct/vectored/vectored.factor
+++ b/extra/classes/struct/vectored/vectored.factor
@@ -7,11 +7,11 @@ IN: classes.struct.vectored
 <PRIVATE
 
 : array-class-of ( type -- array-type )
-    [ define-array-vocab ] [ name>> "-array" append swap lookup ] bi ;
+    [ define-array-vocab ] [ name>> "-array" append swap lookup-word ] bi ;
 : <array-class>-of ( type -- array-type )
-    [ define-array-vocab ] [ name>> "<" "-array>" surround swap lookup ] bi ;
+    [ define-array-vocab ] [ name>> "<" "-array>" surround swap lookup-word ] bi ;
 : (array-class)-of ( type -- array-type )
-    [ define-array-vocab ] [ name>> "(" "-array)" surround swap lookup ] bi ;
+    [ define-array-vocab ] [ name>> "(" "-array)" surround swap lookup-word ] bi ;
 
 : >vectored-slot ( struct-slot offset -- tuple-slot )
     {