Update of /cvsroot/dhcp-agent/dhcp-agent/src
In directory sc8-pr-cvs1:/tmp/cvs-serv14467
Modified Files:
dhcp-server-guile.c
Log Message:
fixed fatal to fatal_error
Index: dhcp-server-guile.c
===================================================================
RCS file: /cvsroot/dhcp-agent/dhcp-agent/src/dhcp-server-guile.c,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** dhcp-server-guile.c 18 Aug 2003 02:24:29 -0000 1.9
--- dhcp-server-guile.c 18 Aug 2003 04:10:57 -0000 1.10
***************
*** 40,43 ****
--- 40,44 ----
#include "dhcp-client-info-guile.h"
#include "dhcp-option-guile.h"
+ #include "dhcp-message-guile.h"
static scm_t_bits server_control_tag;
***************
*** 193,196 ****
--- 194,200 ----
stringbuffer_t *sb;
+ if(getenv("DEBUG_SERVER_SCM"))
+ scm_shell(0, NULL);
+
sb = stringbuffer_create();
stringbuffer_aprintf(sb, "%s/default.backend", DHCPSYSCONF_SERVERDIR);
***************
*** 261,265 ****
scm_c_define_gsubr("server-info-message", 1, 0, 1, scm_info_message);
scm_c_define_gsubr("server-error-message", 1, 0, 1, scm_error_message);
! scm_c_define_gsubr("server-fatal-error-message", 1, 0, 1, scm_fatal_message);
/* bind our server control object. */
--- 265,269 ----
scm_c_define_gsubr("server-info-message", 1, 0, 1, scm_info_message);
scm_c_define_gsubr("server-error-message", 1, 0, 1, scm_error_message);
! scm_c_define_gsubr("server-fatal-error-message", 1, 0, 1, scm_fatal_error_message);
/* bind our server control object. */
|
