[dhcp-agent-commits] dhcp-agent/src dhcp-server-guile.c,1.9,1.10

[<act...@us...>]

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. */