(port (or (option-ref options 'port #f)
default-irc-port))
(username (option-ref options 'username #f))
(listen (option-ref options 'listen #f)))
(port (or (option-ref options 'port #f)
default-irc-port))
(username (option-ref options 'username #f))
(listen (option-ref options 'listen #f)))
- (display `((server ,server) (port ,port) (username ,username)
+ (display `((server ,hostname) (port ,port) (username ,username)