steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

byte-vectors: simplify >byte-vector.

db4
John Benediktsson 2012-07-27 21:29:52 -07:00
parent 3c03803f21
commit 58e39b5ce5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/byte-vectors/byte-vectors.factor
View File

@ -12,7 +12,7 @@ TUPLE: byte-vector
(byte-array) 0 byte-vector boa ; inline (byte-array) 0 byte-vector boa ; inline
: >byte-vector ( seq -- byte-vector ) : >byte-vector ( seq -- byte-vector )
T{ byte-vector f B{ } 0 } clone-like ; >byte-array dup length byte-vector boa ;
M: byte-vector like M: byte-vector like
drop dup byte-vector? [ drop dup byte-vector? [