X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=demos%2Fircbot.scm;h=b97b572bf738143d37c739c138f5d5f9286b6749;hp=bfcd723fca8f9722b014192c75d48e366dd35748;hb=702d8f3a4f6b6abdf7e5c258a39f78eb4f0bb575;hpb=bc24c9f3f29d3396ae9e52f9682914dec868838a

diff --git a/demos/ircbot.scm b/demos/ircbot.scm
index bfcd723..b97b572 100755
--- a/demos/ircbot.scm
+++ b/demos/ircbot.scm
@@ -24,12 +24,13 @@
              (8sync systems irc)
              (oop goops)
              (srfi srfi-37)
+             (ice-9 format)
              (ice-9 match))
 
 (define-class <my-irc-bot> (<irc-bot>))
 
-(define-method (irc-bot-handle-line (irc-bot <my-irc-bot>) speaker channel
-                                    line emote?)
+(define-method (handle-line (irc-bot <my-irc-bot>) speaker channel
+                            line emote?)
   (define my-name (irc-bot-username irc-bot))
   (define (looks-like-me? str)
     (or (equal? str my-name)