From 307b700acc5115872e4846e6910a872f9e4620b7 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 12 May 2014 09:07:19 -0700
Subject: [PATCH] vectors: small speedup to ``f ?push`` and inline 1vector.

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

diff --git a/core/vectors/vectors.factor b/core/vectors/vectors.factor
index c1bffbb9a1..27cd1cf734 100644
--- a/core/vectors/vectors.factor
+++ b/core/vectors/vectors.factor
@@ -40,7 +40,7 @@ M: sequence new-resizable drop <vector> ; inline
 
 INSTANCE: vector growable
 
-: 1vector ( x -- vector ) V{ } 1sequence ;
+: 1vector ( x -- vector ) 1array 1 vector boa ; inline
 
 : ?push ( elt seq/f -- seq )
-    [ 1 <vector> ] unless* [ push ] keep ;
+    [ [ push ] keep ] [ 1vector ] if* ;