formatting: simplify using assoc>map instead of unzip map map zip.

diff --git a/basis/formatting/formatting.factor b/basis/formatting/formatting.factor
index 34fdbef9d4f7ad3089db65debd289532430f82fd..06161fa06d418cd136e69a4d0abb13f905cf2c14 100644 (file)
--- a/basis/formatting/formatting.factor
+++ b/basis/formatting/formatting.factor
@@ -138,7 +138,7 @@ types     = strings|numbers
 
 lists     = "[%" types ", %]"    => [[ second '[ _ { } map-as ", " join "{ " " }" surround ] ]]
 
-assocs    = "[%" types ": %" types " %]" => [[ [ second ] [ fourth ] bi '[ unzip [ _ map ] dip _ map zip [ ":" join ] map ", " join "{ " prepend " }" append ] ]]
+assocs    = "[%" types ": %" types " %]" => [[ [ second ] [ fourth ] bi '[ [ _ _ bi* ":" glue ] { } assoc>map ", " join "{ " " }" surround ] ]]
 
 formats   = "%" (types|fmt-%|lists|assocs|unknown) => [[ second ]]