[dhcp-agent-commits] dhcp-agent/src dhcp-guile-util.c,1.4,1.5

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

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

Modified Files:
	dhcp-guile-util.c 
Log Message:
fixed address pair conversion

Index: dhcp-guile-util.c
===================================================================
RCS file: /cvsroot/dhcp-agent/dhcp-agent/src/dhcp-guile-util.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** dhcp-guile-util.c	18 Aug 2003 01:48:17 -0000	1.4
--- dhcp-guile-util.c	18 Aug 2003 16:15:10 -0000	1.5
***************
*** 170,180 ****
  {
      SCM scm_address_list = SCM_EOL;
      ip_addr_t *first_ip, *second_ip;
  
      list_rewind(address_list);
!     while((first_ip = list_next(address_list)) != NULL) {
  
!         second_ip = list_next(address_list);
!         if(second_ip == NULL) {
              FATAL_MESSAGE("passed uneven list as address pair");
          }
--- 170,182 ----
  {
      SCM scm_address_list = SCM_EOL;
+     list_t *address_pair;
      ip_addr_t *first_ip, *second_ip;
  
      list_rewind(address_list);
!     while((address_pair = list_next(address_list)) != NULL) {
  
!         first_ip  = list_first(address_pair);
!         second_ip = list_second(address_pair);
!         if(first_ip == NULL || second_ip == NULL) {
              FATAL_MESSAGE("passed uneven list as address pair");
          }