From c4472362eaa485ade512cfd4fc97ed9c4ed5b040 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 27 Feb 2014 21:10:05 -0800
Subject: [PATCH] io.encodings: string>byte-array-fast can use (byte-array).

---
 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*