words: move change-word-prop from delegate.private to words
parent
24264e94f4
commit
8e36e0221d
|
@ -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
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue