using crlf.

diff --git a/basis/ftp/ftp.factor b/basis/ftp/ftp.factor
index cb84a72b94c4449ba7f8eda1438022b872dbd196..177e71fbe383c35e45efe6e2436b06590f1d1493 100644 (file)
--- a/basis/ftp/ftp.factor
+++ b/basis/ftp/ftp.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2008 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors io kernel sequences ;
+USING: accessors io io.crlf kernel sequences ;
 IN: ftp
 
 SYMBOLS: +active+ +passive+ ;
@@ -14,4 +14,4 @@ TUPLE: ftp-response n strings parsed ;
 : add-response-line ( ftp-response string -- ftp-response )
     over strings>> push ;
 
-: ftp-send ( string -- ) write "\r\n" write flush ;
+: ftp-send ( string -- ) write crlf flush ;

diff --git a/extra/managed-server/chat/chat.factor b/extra/managed-server/chat/chat.factor
index 91936c701fc2affd183ffc010e2a69a236f519e8..77757da28c5eb9154bac95b02954144b2cb580c5 100644 (file)
--- a/extra/managed-server/chat/chat.factor
+++ b/extra/managed-server/chat/chat.factor
@@ -1,10 +1,9 @@
 ! Copyright (C) 2009 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors assocs combinators combinators.smart
-destructors fry io io.encodings.utf8 kernel managed-server
-namespaces parser sequences sorting splitting strings.parser
-unicode.case unicode.categories calendar calendar.format
-locals io.encodings.binary io.encodings.string prettyprint ;
+USING: accessors assocs calendar calendar.format
+combinators.smart io io.crlf io.encodings.utf8 kernel locals
+managed-server namespaces sequences sorting splitting
+unicode.case ;
 FROM: namespaces => set ;
 IN: managed-server.chat
 
@@ -19,7 +18,7 @@ chat-docs [ H{ } clone ] initialize
 CONSTANT: line-beginning "-!- "
 
 : send-line ( string -- )
-    write "\r\n" write flush ;
+    write crlf flush ;
 
 : handle-me ( string -- )
     [