Rename lookup to lookup-word.

[factor.git] / basis / furnace / utilities / utilities.factor

diff --git a/basis/furnace/utilities/utilities.factor b/basis/furnace/utilities/utilities.factor
index 9ba34dcddc68e8da8b8a235dbe77ee57d1b0cb12..5d35d6f94a2e6e43cca8d00ca029633739d9c70b 100644 (file)
--- a/basis/furnace/utilities/utilities.factor
+++ b/basis/furnace/utilities/utilities.factor
@@ -15,7 +15,7 @@ IN: furnace.utilities
 ERROR: no-such-word name vocab ;
 
 : string>word ( string -- word )
-    ":" split1 swap 2dup lookup dup
+    ":" split1 swap 2dup lookup-word dup
     [ 2nip ] [ drop no-such-word ] if ;
 
 : strings>words ( seq -- seq' )