From 0784ebade216f3d24c3e60602806a5955f0f572c Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Sun, 22 Nov 2015 17:40:14 -0600 Subject: [PATCH] command line thing starts to do things --- demos/irc.scm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/demos/irc.scm b/demos/irc.scm index 62c241a..10436be 100755 --- a/demos/irc.scm +++ b/demos/irc.scm @@ -95,11 +95,16 @@ (define (main args) (let* ((options (getopt-long args option-spec)) - (server (option-ref options 'server #f)) + (hostname (option-ref options 'server #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) (listen ,listen))) - (newline))) + (newline) + (queue-and-start-irc-agenda! + (make-agenda) + (irc-socket-setup hostname port) + #:inet-port port + #:handler (make-simple-irc-handler handle-line)))) -- 2.31.1