factor: use `[ ] append-as` and `[ ] concat-as` in more places

[factor.git] / extra / combinators / extras / extras.factor

diff --git a/extra/combinators/extras/extras.factor b/extra/combinators/extras/extras.factor
index 0e4338ce834be1e3c6cf856492f7645ef6ec12e4..a0a95b122f8aae44e2271e3e6ad135bcaf9251ad 100644 (file)
--- a/extra/combinators/extras/extras.factor
+++ b/extra/combinators/extras/extras.factor
@@ -104,7 +104,7 @@ MACRO:: n-falsify ( n -- quot )
 
 <<
 : alist>quot* ( default assoc -- quot )
-    [ rot \ if* 3array append [ ] like ] assoc-each ;
+    [ rot \ if* 3array [ ] append-as ] assoc-each ;
 
 : cond*>quot ( assoc -- quot )
     [ dup pair? [ [ drop ] prepend [ t ] swap 2array ] unless ] map