use ``if*`` instead of ``dup [ ] [ drop ] if``.

[factor.git] / extra / sequences / abbrev / abbrev.factor

diff --git a/extra/sequences/abbrev/abbrev.factor b/extra/sequences/abbrev/abbrev.factor
index 2dc22477838594feadc25add3c85cfe4ad39741a..1a74079696f0d9c53de50feb6d885a04dc5ad0c7 100644 (file)
--- 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 )
-    [ '[ over _ at dup [ append ] [ drop ] if ] assoc-map ] keep swap assoc-union ;
+    [ '[ over _ at [ append ] when* ] assoc-map ] keep swap assoc-union ;
 
 PRIVATE>