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

assocs.extras: better implementation of rekey-new-assoc

master
Doug Coleman 2020-08-29 19:06:22 -05:00
parent ce3049decd
commit 46be019527
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -42,7 +42,7 @@ IN: assocs.extras
'[ nip @ ] assoc-reject ; inline '[ nip @ ] assoc-reject ; inline
: rekey-new-assoc ( assoc keys -- newassoc ) : rekey-new-assoc ( assoc keys -- newassoc )
[ [ of ] keep swap ] with H{ } map>assoc ; inline [ tuck of ] with H{ } map>assoc ; inline
: rekey-assoc ( assoc keys -- assoc ) : rekey-assoc ( assoc keys -- assoc )
[ dup keys ] dip diff over [ delete-at ] curry each ; inline [ dup keys ] dip diff over [ delete-at ] curry each ; inline