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

2014-02-27 21:10:05 -08:00 · 2014-02-27 21:10:05 -08:00 · c4472362ea
parent ab5b128192
commit c4472362ea
1 changed files with 1 additions and 1 deletions
--- a/core/io/encodings/encodings.factor
+++ b/core/io/encodings/encodings.factor
@ -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*