[project @ 2004-06-13 02:04:44 by unknown_lamer]

s/ctcp-quote/bot:ctcp-quote/

diff --git a/ChangeLog b/ChangeLog
index 4c43ab6..5c5c54c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 2004-06-12  Clinton Ebadi  <clinton@unknownlamer.org>
 
        * scripts/bobot-utils.scm (ctcp-quote): Implemented ctcp-quote
+       (bot:ctcp-quote): Renamed ctcp-quote to bot:ctcp-quite (whoops)
 
 2004-05-28  Clinton Ebadi  <clinton@unknownlamer.org>
 

diff --git a/scripts/bobot-utils.scm b/scripts/bobot-utils.scm
index 16f3996..116c8c4 100644 (file)
--- a/scripts/bobot-utils.scm
+++ b/scripts/bobot-utils.scm
@@ -98,7 +98,7 @@
 ;;; Returns the CTCP quoted message
 ;;; Input _MUST NOT_ contain the trailing \r\n
 ;;; (it is added by the message sending code)
-(define-public (ctcp-quote message)
+(define-public (bot:ctcp-quote message)
   ;; TODO: Not very efficient, it may be worth reimplementing
   (let ((ls (string->list message)))
      (string-concatenate