[project @ 2005-07-05 07:24:59 by unknown_lamer]

Documentation updates, a small update to bobot-utils

diff --git a/ChangeLog b/ChangeLog
index bce144a..5626433 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2005-07-04  Clinton Ebadi  <clinton@unknownlamer.org>
 
+       * scripts/bobot-utils.scm (_deprecated-fun): Set
+       current-error-port to bot:logport while calling
+       issue-deprecation-warning
+
        * bobot++.texinfo: Grammar fixes on the title page
        (Configuration): Added more info on config files.
        (bot.conf): Added xrefs for server syntax and channel syntax

diff --git a/scripts/bobot-utils.scm b/scripts/bobot-utils.scm
index b9d6b66..1892ec1 100644 (file)
--- a/scripts/bobot-utils.scm
+++ b/scripts/bobot-utils.scm
@@ -130,12 +130,16 @@
  (define-macro (_deprecated-fun old-name new-name)
    `(define-public ,old-name
       (lambda args
-       (issue-deprecation-warning
-        (string-append
-         (symbol->string ',old-name)
-         " is a deprecated function. Please use "
-         (symbol->string ',new-name) " instead."))
-       (apply ,new-name args))))
+       (let ((old-error
+              (set-current-error-port (bot:logport))))
+         (issue-deprecation-warning
+          (string-append
+           (symbol->string ',old-name)
+           " is a deprecated function. Please use "
+           (symbol->string ',new-name) " instead."))
+         (bot:flushport)
+         (set-current-error-port old-error))
+         (apply ,new-name args))))
      
  (_deprecated-fun bot-load bot:load)
  (_deprecated-fun bot-action bot:action)