Rename lookup to lookup-word.

[factor.git] / core / syntax / syntax.factor

diff --git a/core/syntax/syntax.factor b/core/syntax/syntax.factor
index 803287a89d7481e970bbc09a9eeabe48e7948de7..6ed0a3330dbfd65f04b0e57eb9a8f83ea8eb0a54 100644 (file)
--- a/core/syntax/syntax.factor
+++ b/core/syntax/syntax.factor
@@ -20,10 +20,10 @@ IN: bootstrap.syntax
 ! in stage2.
 
 : define-delimiter ( name -- )
-    "syntax" lookup t "delimiter" set-word-prop ;
+    "syntax" lookup-word t "delimiter" set-word-prop ;
 
 : define-core-syntax ( name quot -- )
-    [ dup "syntax" lookup [ ] [ no-word-error ] ?if ] dip
+    [ dup "syntax" lookup-word [ ] [ no-word-error ] ?if ] dip
     define-syntax ;
 
 [
@@ -249,9 +249,9 @@ IN: bootstrap.syntax
         ] if*
     ] define-core-syntax
     
-    "initial:" "syntax" lookup define-symbol
+    "initial:" "syntax" lookup-word define-symbol
 
-    "read-only" "syntax" lookup define-symbol
+    "read-only" "syntax" lookup-word define-symbol
 
     "call(" [ \ call-effect parse-call( ] define-core-syntax