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

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

This reverts commit f9881290cdb3238365f0bc5d126325236b4c2123.
db4
John Benediktsson 2014-03-07 09:46:19 -08:00
parent 985faa7ec7
commit 72453cdc99
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>byte-array-fast ( string -- byte-array )
{ string } declare ! aux>> must be f { string } declare ! aux>> must be f
[ length ] keep over (byte-array) [ [ length ] keep over <byte-array> [
[ [
[ [ string-nth-fast ] 2keep drop ] [ [ string-nth-fast ] 2keep drop ]
[ set-nth-unsafe ] bi* [ set-nth-unsafe ] bi*