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" |
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 |
|
|
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); |