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

assocs: kv-with word.

paths
Doug Coleman 2018-06-03 21:33:44 -05:00
parent a96ad1b227
commit 2e65fabf30
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -52,6 +52,9 @@ ERROR: key-exists value key assoc ;
drop set-at drop set-at
] if ; ] if ;
: kv-with ( obj assoc quot -- assoc curried )
swapd [ [ -rot ] dip call ] 2curry ; inline
<PRIVATE <PRIVATE
: (sequence>assoc) ( seq map-quot insert-quot assoc -- assoc ) : (sequence>assoc) ( seq map-quot insert-quot assoc -- assoc )