From 463e9dafb2af5b5aad819d3a3e1642d7cdfa8cc6 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 6 Aug 2012 15:51:52 -0700
Subject: [PATCH] echo-server: change to binary echo.

---
 extra/echo-server/echo-server.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/extra/echo-server/echo-server.factor b/extra/echo-server/echo-server.factor
index 08d1b8abf0..3807b8cee7 100644
--- a/extra/echo-server/echo-server.factor
+++ b/extra/echo-server/echo-server.factor
@@ -1,15 +1,15 @@
 ! Copyright (C) 2012 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license.
 
-USING: accessors kernel io io.encodings.utf8 io.servers ;
+USING: accessors kernel io io.encodings.binary io.servers ;
 
 IN: echo-server
 
 : echo-loop ( -- )
-    readln [ write "\r\n" write flush echo-loop ] when* ;
+    1024 read-partial [ write flush echo-loop ] when* ;
 
 : <echo-server> ( port -- server )
-    utf8 <threaded-server>
+    binary <threaded-server>
         swap >>insecure
         "echo.server" >>name
         [ echo-loop ] >>handler ;
-- 
2.34.1