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

[factor.git] / extra / ctags / ctags.factor

diff --git a/extra/ctags/ctags.factor b/extra/ctags/ctags.factor
index cc83aa13d81ef169b9087745dcdd80d2f157e5d3..bb1d2b76b255694db68aa834a36a972deb0451c4 100644 (file)
--- a/extra/ctags/ctags.factor
+++ b/extra/ctags/ctags.factor
@@ -11,7 +11,7 @@ IN: ctags
 <PRIVATE
 
 : locations ( words -- alist )
-    [ dup where ] { } map>assoc sift-values ;
+    [ where ] zip-with sift-values ;
 
 : ctag ( word path lineno -- str )
     [