byte-vectors: simplify >byte-vector.

2012-07-27 21:29:52 -07:00 · 2012-07-27 21:29:52 -07:00 · 0fe9200839
parent 35f9ef9e88
commit 0fe9200839
1 changed files with 1 additions and 1 deletions
--- 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? [