Permalink
Browse files

added delay to session loop

  • Loading branch information...
1 parent 95404a1 commit 11605d77072ad20da8f434b1211a8d1939f47178 @cormullion committed Jan 7, 2013
Showing with 2 additions and 1 deletion.
  1. +2 −1 irc.lsp
View
@@ -210,7 +210,8 @@
(register-callback "send-to-server" 'print-outgoing-message)
(while Iconnected
(while (zero? (peek 0))
- (read-irc))
+ (read-irc)
+ (sleep 1000))
(send-to-server (string (read-line 0))))
(println {finished session } (date))
(exit))

0 comments on commit 11605d7

Please sign in to comment.