From: Joe Groff <arcata@gmail.com>
Date: Thu, 15 Sep 2011 21:39:24 +0000 (-0700)
Subject: words: move change-word-prop from delegate.private to words
X-Git-Tag: 0.97~4136
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=8e36e0221d2db30e987df4f2f986b2efc4038b2d

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

diff --git a/basis/delegate/delegate.factor b/basis/delegate/delegate.factor
index cdd58afc9e..f37a562444 100644
--- 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 2a4c2c4c06..e6ed220bc5 100644
--- 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