From ea7cbd2b5afab52059973509c426d595d167a5c3 Mon Sep 17 00:00:00 2001 From: Maximilian Lupke 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>