From e55be4e70fb96176889c78eb314e2335bc903eb5 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 7 Mar 2014 11:19:45 -0800
Subject: [PATCH] Revert "Revert "io.encodings: string>byte-array-fast can use
 (byte-array).""

This reverts commit af6975593756e353654b67b1bf1db7dd06f8c114.
---
 core/io/encodings/encodings.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/io/encodings/encodings.factor b/core/io/encodings/encodings.factor
index 9da1d6b03b..2ee100dd52 100644
--- 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*