/[guile]/guile/guile-core/libguile/filesys.c
ViewVC logotype

Diff of /guile/guile-core/libguile/filesys.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.110 by ossau, Fri Nov 16 15:04:17 2001 UTC revision 1.111 by ossau, Tue Jan 22 23:31:39 2002 UTC
# Line 51  Line 51 
51  #include "libguile/iselect.h"  #include "libguile/iselect.h"
52  #include "libguile/strings.h"  #include "libguile/strings.h"
53  #include "libguile/vectors.h"  #include "libguile/vectors.h"
54    #include "libguile/lang.h"
55    
56  #include "libguile/validate.h"  #include "libguile/validate.h"
57  #include "libguile/filesys.h"  #include "libguile/filesys.h"
# Line 1032  fill_select_type (SELECT_TYPE *set, SCM Line 1033  fill_select_type (SELECT_TYPE *set, SCM
1033      }      }
1034    else    else
1035      {      {
1036        while (!SCM_NULLP (list_or_vec))        while (!SCM_NULL_OR_NIL_P (list_or_vec))
1037          {          {
1038            int fd = set_element (set, ports_ready, SCM_CAR (list_or_vec), pos);            int fd = set_element (set, ports_ready, SCM_CAR (list_or_vec), pos);
1039    
# Line 1092  retrieve_select_type (SELECT_TYPE *set, Line 1093  retrieve_select_type (SELECT_TYPE *set,
1093    else    else
1094      {      {
1095        /* list_or_vec must be a list.  */        /* list_or_vec must be a list.  */
1096        while (!SCM_NULLP (list_or_vec))        while (!SCM_NULL_OR_NIL_P (list_or_vec))
1097          {          {
1098            answer_list = get_element (set, SCM_CAR (list_or_vec), answer_list);            answer_list = get_element (set, SCM_CAR (list_or_vec), answer_list);
1099            list_or_vec = SCM_CDR (list_or_vec);            list_or_vec = SCM_CDR (list_or_vec);

Legend:
Removed from v.1.110  
changed lines
  Added in v.1.111

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26