byte-vectors: simplify >byte-vector.

diff --git a/core/byte-vectors/byte-vectors.factor b/core/byte-vectors/byte-vectors.factor
index 4f6ade858068b5a22385987f495381e57095ceba..e4bc48f69132bf7c938f6d066c2fdc6d7b012e75 100644 (file)
--- 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\r
 \r
 : >byte-vector ( seq -- byte-vector )\r
-    T{ byte-vector f B{ } 0 } clone-like ;\r
+    >byte-array dup length byte-vector boa ;\r
 \r
 M: byte-vector like\r
     drop dup byte-vector? [\r