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

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

Update of /cvsroot/dhcp-agent/dhcp-agent/src
In directory sc8-pr-cvs1:/tmp/cvs-serv842

Modified Files:
	dhcp-server-guile.c 
Log Message:
server guile bindings now have bound to message code

Index: dhcp-server-guile.c
===================================================================
RCS file: /cvsroot/dhcp-agent/dhcp-agent/src/dhcp-server-guile.c,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** dhcp-server-guile.c	18 Aug 2003 01:50:32 -0000	1.8
--- dhcp-server-guile.c	18 Aug 2003 02:24:29 -0000	1.9
***************
*** 258,261 ****
--- 258,266 ----
      scm_define(lease_expire, SCM_BOOL_F);
  
+     /* bind some utility routines. */
+     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. */
      scm_c_define("dhcp-server-control",