From 260a9a10fd060573da725c129d2e54ef33ff61a3 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Mon, 23 Nov 2015 15:26:39 -0600 Subject: [PATCH] echo back message stuff --- demos/irc.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/demos/irc.scm b/demos/irc.scm index eabc31d..37e4e01 100755 --- a/demos/irc.scm +++ b/demos/irc.scm @@ -162,14 +162,16 @@ (string-join (cons first-word rest-message) " ") #f))))) -(define (default-handle-privmsg my-name speaker - channel-name message is-action) +(define (echo-back-message my-name speaker + channel-name message is-action) (if is-action (format #t "~a emoted ~s in channel ~a\n" speaker message channel-name) (format #t "~a said ~s in channel ~a\n" speaker message channel-name))) +(define default-handle-privmsg echo-back-message) + (define* (make-handle-line #:key (handle-privmsg default-handle-privmsg)) (define (handle-line socket line my-username) -- 2.31.1