From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Mon, 23 Nov 2015 21:26:39 +0000 (-0600)
Subject: echo back message stuff
X-Git-Tag: v0.1.0~84
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=260a9a10fd060573da725c129d2e54ef33ff61a3;p=8sync.git

echo back message stuff
---

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)