steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/delegate/delegate.factor
View File

@ -76,9 +76,6 @@ M: broadcast (consult-method-quot)
[ swap consult-method-quot ] 2bi [ swap consult-method-quot ] 2bi
define ; define ;
: change-word-prop ( word prop quot -- )
[ swap props>> ] dip change-at ; inline
: each-generic ( consultation quot -- ) : each-generic ( consultation quot -- )
[ [ group>> group-words ] keep ] dip curry each ; inline [ [ group>> group-words ] keep ] dip curry each ; inline

3
core/words/words.factor
View File

@ -30,6 +30,9 @@ M: word definition def>> ;
[ pick props>> ?set-at >>props drop ] [ pick props>> ?set-at >>props drop ]
[ nip remove-word-prop ] if ; [ 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 ; : reset-props ( word seq -- ) [ remove-word-prop ] with each ;
<PRIVATE <PRIVATE