extra: use push-at-each

[factor.git] / extra / sequences / abbrev / abbrev.factor

diff --git a/extra/sequences/abbrev/abbrev.factor b/extra/sequences/abbrev/abbrev.factor
index 8cde6f42e5efe7de0e687ed04e1c376d9c19f54b..0c5640f2edd06b809ade03aee3b120b138864826 100644 (file)
--- a/extra/sequences/abbrev/abbrev.factor
+++ b/extra/sequences/abbrev/abbrev.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2009 Maximilian Lupke.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: assocs kernel ranges sequences ;
+USING: assocs assocs.extras kernel ranges sequences ;
 IN: sequences.abbrev
 
 <PRIVATE
@@ -12,7 +12,7 @@ PRIVATE>
 
 : abbrev ( seqs -- assoc )
     H{ } clone [
-        '[ dup prefixes [ _ push-at ] with each ] each
+        swap [ dup prefixes rot push-at-each ] with each
     ] keep ;
 
 : unique-abbrev ( seqs -- assoc )