From 52e09199e12be8c4a4e4f7c56a51099c84a2ceb8 Mon Sep 17 00:00:00 2001
From: Maximilian Lupke <simply.malu@googlemail.com>
Date: Mon, 20 Jul 2009 01:40:20 +0200
Subject: [PATCH] sequences.abbrev: small refactoring

---
 extra/sequences/abbrev/abbrev.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/sequences/abbrev/abbrev.factor b/extra/sequences/abbrev/abbrev.factor
index 526737bd55..bab8bb94b2 100644
--- 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 ;