words: move change-word-prop from delegate.private to words

diff --git a/basis/delegate/delegate.factor b/basis/delegate/delegate.factor
index cdd58afc9e360f7745260211d4c639d2755bba5c..f37a5624443e5848ac37e885986f1e68eed61893 100644 (file)
--- a/basis/delegate/delegate.factor
+++ b/basis/delegate/delegate.factor
@@ -76,9 +76,6 @@ M: broadcast (consult-method-quot)
     [ swap consult-method-quot ] 2bi
     define ;
 
-: change-word-prop ( word prop quot -- )
-    [ swap props>> ] dip change-at ; inline
-
 : each-generic ( consultation quot -- )
     [ [ group>> group-words ] keep ] dip curry each ; inline
 

diff --git a/core/words/words.factor b/core/words/words.factor
index 2a4c2c4c06a130121f0c33b1db8bfb5cf70d52d7..e6ed220bc5acb4498c45caad9df00b3c34eb1fb6 100644 (file)
--- a/core/words/words.factor
+++ b/core/words/words.factor
@@ -30,6 +30,9 @@ M: word definition def>> ;
     [ pick props>> ?set-at >>props drop ]
     [ nip remove-word-prop ] if ;
 
+: change-word-prop ( word prop quot -- )
+    [ swap props>> ] dip change-at ; inline
+
 : reset-props ( word seq -- ) [ remove-word-prop ] with each ;
 
 <PRIVATE