irc bot probs

helloworld.rkt

#lang racket
 
(define (listen in out) (begin
  (define ss (getline in))
  (if (ping? ss)
    (begin (pong ss out) (displayln "ponging"))
    '())
  (displayln ss)
  (listen in out)))
 
(define (getline in)
  (let ([s (read-line in)])
    (if (eof-object? s)
      (error "connection failed")
      (string-split s))))
 
(define (ping? ss) (eq? (car ss) "PING"))
 
(define (pong ss out)
  (displayln (string-append "PONG " (car (cdr ss))) out))

> (enter! "helloworld.rkt")
"helloworld.rkt"> (define-values (a b) (tcp-connec
t "irc.codetalk.io" 6667))
"helloworld.rkt"> (listen a b)                    
(:irc.codetalk.io NOTICE AUTH :*** Looking up your
 hostname...)
(:irc.codetalk.io NOTICE AUTH :*** Couldn't resolv
e your hostname; using your IP address instead)
(ERROR :Closing Link: [88.129.155.128] (Ping timeo
ut: 38 seconds))
; connection failed [,bt for context]