sequences.abbrev: small refactoring

2009-07-20 01:40:20 +02:00 · 2009-07-20 01:40:20 +02:00 · 52e09199e1
parent 8e9badd4f5
commit 52e09199e1
1 changed files with 1 additions and 1 deletions
--- a/extra/sequences/abbrev/abbrev.factor
+++ b/extra/sequences/abbrev/abbrev.factor
@ -6,7 +6,7 @@ IN: sequences.abbrev
 <PRIVATE

 : prefixes ( seq -- prefixes )
-    dup length [1,b] [ dupd head ] map nip ;
+    dup length [1,b] [ head ] with map ;

 : (abbrev) ( seq -- assoc )
    [ prefixes ] keep 1array '[ _ ] H{ } map>assoc ;