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

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

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

revision 1.66 by dirk, Fri Aug 31 14:42:31 2001 UTC revision 1.67 by ossau, Tue Jan 22 23:31:38 2002 UTC
# Line 72  maybe_drag_in_eprintf () Line 72  maybe_drag_in_eprintf ()
72  #include "libguile/ports.h"  #include "libguile/ports.h"
73  #include "libguile/strings.h"  #include "libguile/strings.h"
74  #include "libguile/deprecation.h"  #include "libguile/deprecation.h"
75    #include "libguile/lang.h"
76  #include "libguile/validate.h"  #include "libguile/validate.h"
77    
78  /* Create a new C argv array from a scheme list of strings. */  /* Create a new C argv array from a scheme list of strings. */
# Line 97  scm_make_argv_from_stringlist (SCM args, Line 98  scm_make_argv_from_stringlist (SCM args,
98    argc = scm_ilength (args);    argc = scm_ilength (args);
99    SCM_ASSERT (argc >= 0, args, argn, subr);    SCM_ASSERT (argc >= 0, args, argn, subr);
100    argv = (char **) scm_must_malloc ((argc + 1) * sizeof (char *), subr);    argv = (char **) scm_must_malloc ((argc + 1) * sizeof (char *), subr);
101    for (i = 0; !SCM_NULLP (args); args = SCM_CDR (args), ++i) {    for (i = 0; !SCM_NULL_OR_NIL_P (args); args = SCM_CDR (args), ++i) {
102      SCM arg = SCM_CAR (args);      SCM arg = SCM_CAR (args);
103      size_t len;      size_t len;
104      char *dst;      char *dst;

Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67

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