X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=demos%2Fircbot.scm;h=202c18c2a866170b39cd71dff30496796020001f;hp=0aef0d5430cc93c9849973c7f33727f76f920758;hb=4e0dd1c6881754498c144f50db4158d4bff4b782;hpb=39fce509440e467188270625bf728b1c57ef9e26 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))