Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

added delay to session loop

  • Loading branch information...
commit 11605d77072ad20da8f434b1211a8d1939f47178 1 parent 95404a1
@cormullion authored
Showing with 2 additions and 1 deletion.
  1. +2 −1  irc.lsp
View
3  irc.lsp
@@ -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))
Please sign in to comment.
Something went wrong with that request. Please try again.