From 58e39b5ce5e1e29c31b3ea276cb9f2e9d304eac4 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 27 Jul 2012 21:29:52 -0700
Subject: [PATCH] byte-vectors: simplify >byte-vector.

---
 core/byte-vectors/byte-vectors.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/byte-vectors/byte-vectors.factor b/core/byte-vectors/byte-vectors.factor
index 4f6ade8580..e4bc48f691 100644
--- a/core/byte-vectors/byte-vectors.factor
+++ b/core/byte-vectors/byte-vectors.factor
@@ -12,7 +12,7 @@ TUPLE: byte-vector
     (byte-array) 0 byte-vector boa ; inline
 
 : >byte-vector ( seq -- byte-vector )
-    T{ byte-vector f B{ } 0 } clone-like ;
+    >byte-array dup length byte-vector boa ;
 
 M: byte-vector like
     drop dup byte-vector? [