Update all deprecated/discouraged Guile calls

[clinton/bobotpp.git] / source / ServerQueue.C

diff --git a/source/ServerQueue.C b/source/ServerQueue.C
index b525747..b701074 100644 (file)
--- a/source/ServerQueue.C
+++ b/source/ServerQueue.C
@@ -1,6 +1,6 @@
 // ServerQueue.C  -*- C++ -*-
 // Copyright (c) 1997, 1998 Etienne BERNARD
-// Copyright (C) 2002,2005 Clinton Ebadi
+// Copyright (C) 2002,2005,2008 Clinton Ebadi
 
 // This program is free software; you can redistribute it and/or modify
 // it under the terms of the GNU General Public License as published by
@@ -115,7 +115,7 @@ ServerQueue::sendCTCP(String to, String command,
       Interp::bot->botInterp->RunHooks (Hook::SEND_ACTION,
                                        MNICK + " " + to +
                                        " " + message,
-                                       scm_listify (Utils::
+                                       scm_list_n (Utils::
                                                  str2scm (MNICK),
                                                  Utils::
                                                  str2scm (to),
@@ -127,7 +127,7 @@ ServerQueue::sendCTCP(String to, String command,
     Interp::bot->botInterp->RunHooks (Hook::SEND_CTCP,
                                      MNICK + " " + to + " " +
                                      command + " " + message,
-                                     scm_listify (Utils::
+                                     scm_list_n (Utils::
                                                   str2scm (MNICK),
                                                   Utils::
                                                   str2scm (to),
@@ -242,7 +242,7 @@ ServerQueue::sendPrivmsg(String dest, String message)
       Interp::bot->botInterp->RunHooks (Hook::SEND_PUBLIC,
                                        Interp::bot->nickName + " " + dest +
                                        " " + message,
-                                       scm_listify 
+                                       scm_list_n 
                                        (Utils::str2scm 
                                         (Interp::bot->nickName),
                                         Utils::str2scm (dest),
@@ -253,7 +253,7 @@ ServerQueue::sendPrivmsg(String dest, String message)
        (Hook::SEND_MESSAGE,
         Interp::bot->nickName + " " + dest +
         message,
-        scm_listify (Utils::str2scm (Interp::bot->nickName),
+        scm_list_n (Utils::str2scm (Interp::bot->nickName),
                      Utils::str2scm (dest),
                      Utils::str2scm
                      (message), SCM_UNDEFINED));