[dhcp-agent-commits] dhcp-agent/src dhcp-message-guile.c,1.1,1.2

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

Update of /cvsroot/dhcp-agent/dhcp-agent/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11797

Modified Files:
	dhcp-message-guile.c 
Log Message:
added warn message binding


Index: dhcp-message-guile.c
===================================================================
RCS file: /cvsroot/dhcp-agent/dhcp-agent/src/dhcp-message-guile.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** dhcp-message-guile.c	18 Aug 2003 02:21:15 -0000	1.1
--- dhcp-message-guile.c	2 Jun 2004 02:02:43 -0000	1.2
***************
*** 83,84 ****
--- 83,98 ----
      return SCM_BOOL_T;
  }
+ 
+ /* send a message via the WARN_MESSAGE facility. */
+ SCM scm_warn_message(SCM msg, SCM args)
+ {
+     SCM scm_str;
+     char *str;
+ 
+     scm_str = print_to_scm_string(msg, args);
+     str = x_scm_string2newstr(scm_str);
+     WARN_MESSAGE(str);
+     xfree(str);
+ 
+     return SCM_BOOL_T;
+ }