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

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

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

revision 1.98 by ossau, Fri Nov 16 15:04:17 2001 UTC revision 1.99 by ossau, Tue Jan 22 23:31:39 2002 UTC
# Line 54  Line 54 
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"
# Line 916  environ_list_to_c (SCM envlist, int arg, Line 917  environ_list_to_c (SCM envlist, int arg,
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;

Legend:
Removed from v.1.98  
changed lines
  Added in v.1.99

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