54 |
#include "libguile/feature.h" |
#include "libguile/feature.h" |
55 |
#include "libguile/strings.h" |
#include "libguile/strings.h" |
56 |
#include "libguile/vectors.h" |
#include "libguile/vectors.h" |
57 |
|
#include "libguile/lang.h" |
58 |
|
|
59 |
#include "libguile/validate.h" |
#include "libguile/validate.h" |
60 |
#include "libguile/posix.h" |
#include "libguile/posix.h" |
917 |
result = (char **) malloc ((num_strings + 1) * sizeof (char *)); |
result = (char **) malloc ((num_strings + 1) * sizeof (char *)); |
918 |
if (result == NULL) |
if (result == NULL) |
919 |
scm_memory_error (proc); |
scm_memory_error (proc); |
920 |
for (i = 0; !SCM_NULLP (envlist); ++i, envlist = SCM_CDR (envlist)) |
for (i = 0; !SCM_NULL_OR_NIL_P (envlist); ++i, envlist = SCM_CDR (envlist)) |
921 |
{ |
{ |
922 |
SCM str = SCM_CAR (envlist); |
SCM str = SCM_CAR (envlist); |
923 |
int len; |
int len; |