factor: remove """ string syntax for now. there are HEREDOC:, STRING:, escaping ...

[factor.git] / extra / managed-server / chat / chat.factor

diff --git a/extra/managed-server/chat/chat.factor b/extra/managed-server/chat/chat.factor
index 77757da28c5eb9154bac95b02954144b2cb580c5..52849b306e76bb076dd293ad20a2edb0904b7480 100644 (file)
--- a/extra/managed-server/chat/chat.factor
+++ b/extra/managed-server/chat/chat.factor
@@ -68,31 +68,31 @@ CONSTANT: line-beginning "-!- "
     docs key chat-docs get set-at ;
 
 [ handle-help ]
-"""Syntax: /help [command]
-Displays the documentation for a command."""
+"Syntax: /help [command]
+Displays the documentation for a command."
 "help" add-command
 
 [ drop clients keys [ "``" "''" surround ] map ", " join send-line ]
-"""Syntax: /who
-Shows the list of connected users."""
+"Syntax: /who
+Shows the list of connected users."
 "who" add-command
 
 [ drop gmt timestamp>rfc822 send-line ]
-"""Syntax: /time
-Returns the current GMT time.""" "time" add-command
+"Syntax: /time
+Returns the current GMT time." "time" add-command
 
 [ handle-nick ]
-"""Syntax: /nick nickname
-Changes your nickname."""
+"Syntax: /nick nickname
+Changes your nickname."
 "nick" add-command
 
 [ handle-me ]
-"""Syntax: /me action"""
+"Syntax: /me action"
 "me" add-command
 
 [ handle-quit ]
-"""Syntax: /quit [message]
-Disconnects a user from the chat server.""" "quit" add-command
+"Syntax: /quit [message]
+Disconnects a user from the chat server." "quit" add-command
 
 : handle-command ( string -- )
     dup " " split1 swap >lower commands get at* [