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

Revert "Revert "io.encodings: string>byte-array-fast can use (byte-array)."" 

This reverts commit af6975593756e353654b67b1bf1db7dd06f8c114.
db4
John Benediktsson 2014-03-07 11:19:45 -08:00
parent b0b5e6733d
commit e55be4e70f
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/io/encodings/encodings.factor
View File

@ -42,7 +42,7 @@ CONSTANT: replacement-char 0xfffd
: string>byte-array-fast ( string -- byte-array )
{ string } declare ! aux>> must be f
[ length ] keep over <byte-array> [
[ length ] keep over (byte-array) [
[
[ [ string-nth-fast ] 2keep drop ]
[ set-nth-unsafe ] bi*