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

assocs.extras: adding "of".

db4
John Benediktsson 2012-09-26 15:41:36 -07:00
parent 2bf2bd0ee2
commit ddbffb6375
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/assocs/extras/extras.factor
View File

@ -5,6 +5,8 @@ USING: arrays assocs assocs.private kernel math sequences ;
IN: assocs.extras IN: assocs.extras
: of ( assoc key -- value ) swap at ; inline
: assoc-harvest ( assoc -- assoc' ) : assoc-harvest ( assoc -- assoc' )
[ nip empty? not ] assoc-filter ; inline [ nip empty? not ] assoc-filter ; inline