From 46be019527e8bc68064d0edc7563bdee4712ad9e Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 29 Aug 2020 19:06:22 -0500 Subject: [PATCH] assocs.extras: better implementation of rekey-new-assoc --- extra/assocs/extras/extras.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor index 472f1b94a5..ee5ab67730 100644 --- a/extra/assocs/extras/extras.factor +++ b/extra/assocs/extras/extras.factor @@ -42,7 +42,7 @@ IN: assocs.extras '[ nip @ ] assoc-reject ; inline : 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 ) [ dup keys ] dip diff over [ delete-at ] curry each ; inline -- 2.34.1