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

This reverts commit f9881290cdb3238365f0bc5d126325236b4c2123.
---
 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 2ee100dd52..9da1d6b03b 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*