Fixed line buffering, added example.

[botbot.git] / botbot.scm

diff --git a/botbot.scm b/botbot.scm
index 187f0cb..a03ea80 100644 (file)
--- a/botbot.scm
+++ b/botbot.scm
@@ -46,6 +46,7 @@
 
 (define (launch-bot)
   ;; (let-values (((in-port out-port) (tcp-connect host port)))
+  (set-buffering-mode! (current-output-port) #:line)
   (let-values (((in-port out-port)
                 (if usetls
                     (ssl-connect* hostname: irc-host port: (or irc-port 6697))