From ea7cbd2b5afab52059973509c426d595d167a5c3 Mon Sep 17 00:00:00 2001
From: Maximilian Lupke <simply.malu@googlemail.com>
Date: Mon, 20 Jul 2009 20:18:13 +0200
Subject: [PATCH] sequences.abbrev: keep insertion order

---
 extra/sequences/abbrev/abbrev-tests.factor | 2 +-
 extra/sequences/abbrev/abbrev.factor       | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/sequences/abbrev/abbrev-tests.factor b/extra/sequences/abbrev/abbrev-tests.factor
index 6e6739e09a..39e445b495 100644
--- a/extra/sequences/abbrev/abbrev-tests.factor
+++ b/extra/sequences/abbrev/abbrev-tests.factor
@@ -1,7 +1,7 @@
 USING: assocs sequences.abbrev tools.test ;
 IN: sequences.abbrev.tests
 
-[ { "help" "hello" } ] [
+[ { "hello" "help" } ] [
     "he" { "apple" "hello" "help" } abbrev at
 ] unit-test
 
diff --git a/extra/sequences/abbrev/abbrev.factor b/extra/sequences/abbrev/abbrev.factor
index d5bba8951e..6770a48a3a 100644
--- a/extra/sequences/abbrev/abbrev.factor
+++ b/extra/sequences/abbrev/abbrev.factor
@@ -12,7 +12,7 @@ IN: sequences.abbrev
     [ prefixes ] keep 1array '[ _ ] H{ } map>assoc ;
 
 : assoc-merge ( assoc1 assoc2 -- assoc3 )
-    tuck '[ over _ at dup [ prepend ] [ drop ] if ] assoc-map assoc-union ;
+    tuck '[ over _ at dup [ append ] [ drop ] if ] assoc-map assoc-union ;
 
 PRIVATE>