core/basis/extras: use zip-with in a few places.

[factor.git] / basis / help / help.factor

diff --git a/basis/help/help.factor b/basis/help/help.factor
index 29b3ffc9441e56402f35317b1e39246261851d9b..f33f0f52b112e9682021b3ac47cab7f86a6ca53f 100644 (file)
--- a/basis/help/help.factor
+++ b/basis/help/help.factor
@@ -78,7 +78,7 @@ M: alias word-help*
     } 1|| ;
 
 : sort-articles ( seq -- newseq )
-    [ dup article-title ] { } map>assoc sort-values keys ;
+    [ article-title ] zip-with sort-values keys ;
 
 : all-errors ( -- seq )
     all-words [ error? ] filter sort-articles ;