From e3ec2b6c8bbb018ebeeb58ffbe231281ebdc6ce1 Mon Sep 17 00:00:00 2001 From: Maximilian Lupke Date: Mon, 20 Jul 2009 17:22:55 +0200 Subject: [PATCH] sequences.abbrev: more 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 bab8bb94b2..d5bba8951e 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 ) - swap over '[ over _ at dup [ prepend ] [ drop ] if ] assoc-map assoc-union ; + tuck '[ over _ at dup [ prepend ] [ drop ] if ] assoc-map assoc-union ; PRIVATE>