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

db4
Joe Groff 2011-09-15 14:39:24 -07:00
parent 24264e94f4
commit 8e36e0221d
2 changed files with 3 additions and 3 deletions

View File

@ -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

View File

@ -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