Rename lookup to lookup-word.

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

diff --git a/basis/bootstrap/compiler/compiler.factor b/basis/bootstrap/compiler/compiler.factor
index 3d3a922687c93cdd9d9548d35ec8720738712ed3..7156c2d416ba43c68bbd4d456578c1ea0859f4ea 100644 (file)
--- a/basis/bootstrap/compiler/compiler.factor
+++ b/basis/bootstrap/compiler/compiler.factor
@@ -108,13 +108,13 @@ gc
     "." write flush
 
     os windows? [
-        "GetLastError" "windows.kernel32" lookup
-        "FormatMessageW" "windows.kernel32" lookup
+        "GetLastError" "windows.kernel32" lookup-word
+        "FormatMessageW" "windows.kernel32" lookup-word
         2array compile-unoptimized
     ] when
 
     os unix? [
-        "(dlerror)" "alien.libraries.unix" lookup
+        "(dlerror)" "alien.libraries.unix" lookup-word
         1array compile-unoptimized
     ] when