vectors: small speedup to ``f ?push`` and inline 1vector.

2014-05-12 09:07:19 -07:00 · 2014-05-12 09:07:19 -07:00 · 307b700acc
parent 25ff85331c
commit 307b700acc
1 changed files with 2 additions and 2 deletions
--- 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* ;