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

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index 472f1b94a58f3792cb93b9b2dbc8e50f281898dc..ee5ab677302cc8f65db0975b555754f4ad32fabd 100644 (file)
--- 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