From d07564532d616fd49feb5e12afa21588c653d307 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 6 Jun 2015 09:24:56 -0700
Subject: [PATCH] sequences: make concat-as inline and don't special-case
 empty.

---
 core/sequences/sequences.factor | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index f680671559..d16f3b9557 100644
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -840,10 +840,10 @@ M: repetition sum-lengths
     [ len>> ] [ elt>> length ] bi * ;
 
 : concat-as ( seq exemplar -- newseq )
-    swap [ { } ] [
-        [ sum-lengths over new-resizable ] keep
-        [ append! ] each
-    ] if-empty swap like ;
+    [
+        [ dup sum-lengths ] dip new-resizable
+        [ [ push-all ] curry each ] keep
+    ] keep like ; inline
 
 : concat ( seq -- newseq )
     [ { } ] [ dup first concat-as ] if-empty ;