diff options
| -rw-r--r-- | irc/core.rkt | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/irc/core.rkt b/irc/core.rkt index 342cb78..bbe6905 100644 --- a/irc/core.rkt +++ b/irc/core.rkt @@ -1,6 +1,6 @@ #lang racket/base (require (for-syntax racket/provide) racket/provide - racket/string racket/list + racket/string racket/format racket/list racket/function racket/promise racket/exn racket/tcp openssl (only-in srfi/13 string-index string-index-right)) @@ -17,7 +17,7 @@ (define current-message (make-parameter #f)) (define current-hook-fail-handler - (make-parameter (λ (x) (displayln (exn->string x))))) + (make-parameter (λ (x) (log-irc-error (exn->string x))))) (struct connection (input output hooks output-lock storage) |