X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=demos%2Fircbot.scm;h=202c18c2a866170b39cd71dff30496796020001f;hb=bb0d4fc5de7ca8282542d8ec5b3b4ce6389b7cce;hp=0aef0d5430cc93c9849973c7f33727f76f920758;hpb=39fce509440e467188270625bf728b1c57ef9e26;p=8sync.git diff --git a/demos/ircbot.scm b/demos/ircbot.scm index 0aef0d5..202c18c 100755 --- a/demos/ircbot.scm +++ b/demos/ircbot.scm @@ -36,8 +36,8 @@ ;; Add yours here (_ (irc-format socket "PRIVMSG ~a :*stupid puppy look*" channel)))) - (_ - (cond + (_ + (cond (is-action (format #t "~a emoted ~s in channel ~a\n" speaker message channel))