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

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