From d86e4ab5d19c62bd585239dd600aa2645b337c74 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Mon, 23 Nov 2015 15:20:26 -0600 Subject: [PATCH] refactoring args to default-handle-privmsg --- demos/irc.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/demos/irc.scm b/demos/irc.scm index ab6c7c7..eabc31d 100755 --- a/demos/irc.scm +++ b/demos/irc.scm @@ -162,12 +162,13 @@ (string-join (cons first-word rest-message) " ") #f))))) -(define (default-handle-privmsg irc-line username channel-name message is-action) +(define (default-handle-privmsg my-name speaker + channel-name message is-action) (if is-action (format #t "~a emoted ~s in channel ~a\n" - username message channel-name) + speaker message channel-name) (format #t "~a said ~s in channel ~a\n" - username message channel-name))) + speaker message channel-name))) (define* (make-handle-line #:key (handle-privmsg default-handle-privmsg)) @@ -180,7 +181,7 @@ (receive (channel-name message is-action) (condense-privmsg-line (irc-line-params parsed-line)) (let ((username (irc-line-username parsed-line))) - (handle-privmsg parsed-line username channel-name message is-action)))) + (handle-privmsg my-username username channel-name message is-action)))) (_ (display line) (newline))))) -- 2.31.1