From 5904690ae623b69a490c2481a260b05938355b5c Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 6 Jun 2015 09:25:58 -0700
Subject: [PATCH] sequences.generalizations: use concat-as in nappend-as.

---
 basis/sequences/generalizations/generalizations.factor | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/basis/sequences/generalizations/generalizations.factor b/basis/sequences/generalizations/generalizations.factor
index 81f18f41d6..5c4a18e124 100644
--- 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