Rename lookup to lookup-word.

[factor.git] / extra / slots / syntax / syntax.factor

diff --git a/extra/slots/syntax/syntax.factor b/extra/slots/syntax/syntax.factor
index cda8d402e6fe66fdb6d5505532de4294267fb32d..144dfc1c067f0cc0b0ac26f283eb45e99f68d993 100755 (executable)
--- a/extra/slots/syntax/syntax.factor
+++ b/extra/slots/syntax/syntax.factor
@@ -13,10 +13,10 @@ SYNTAX: slots{
     '[ [ _ cleave ] output>array ] append! ;
 
 : >>writer-word ( name -- word )
-    ">>" prepend "accessors" lookup ;
+    ">>" prepend "accessors" lookup-word ;
     
 : writer-word<< ( name -- word )
-    ">>" prepend "accessors" lookup ;
+    ">>" prepend "accessors" lookup-word ;
 
 SYNTAX: set-slots[
     "]" [ >>writer-word 1quotation ] map-tokens