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

[factor.git] / core / words / words.factor

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