Rename lookup to lookup-word.

[factor.git] / basis / bootstrap / image / image.factor

diff --git a/basis/bootstrap/image/image.factor b/basis/bootstrap/image/image.factor
index c2d12c4540c46a1366c5371d5a6a94447413cab8..9de2c443af6d41c4e93fb7bc9e17a08d68437716 100755 (executable)
--- a/basis/bootstrap/image/image.factor
+++ b/basis/bootstrap/image/image.factor
@@ -458,7 +458,7 @@ M: tuple ' emit-tuple ;
 
 M: tombstone '
     state>> "((tombstone))" "((empty))" ?
-    "hashtables.private" lookup def>> first
+    "hashtables.private" lookup-word def>> first
     [ emit-tuple ] cache-eql-object ;
 
 ! Arrays