sequences.generalizations: use concat-as in nappend-as.

diff --git a/basis/sequences/generalizations/generalizations.factor b/basis/sequences/generalizations/generalizations.factor
index 81f18f41d64d9feb5bbdbc540e7bd3de2ee8db1c..5c4a18e12488089617b000b127379142d53aa246 100644 (file)
--- a/basis/sequences/generalizations/generalizations.factor
+++ b/basis/sequences/generalizations/generalizations.factor
@@ -5,8 +5,7 @@ memoize.private generalizations ;
 IN: sequences.generalizations
 
 MACRO: nsequence ( n seq -- )
-    [ [nsequence] ] keep
-    '[ @ _ like ] ;
+    [ [nsequence] ] keep '[ @ _ like ] ;
 
 MACRO: narray ( n -- )
     '[ _ { } nsequence ] ;
@@ -36,7 +35,7 @@ MACRO: set-firstn ( n -- )
 : nappend ( n -- seq ) narray concat ; inline
 
 : nappend-as ( n exemplar -- seq )
-    [ nappend ] dip like ; inline
+    [ narray ] [ concat-as ] bi* ; inline
 
 MACRO: nmin-length ( n -- )
     dup 1 - [ min ] n*quot