/[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.115 by kryde, Wed Jun 11 23:15:02 2003 UTC revision 1.116 by kryde, Wed Jun 11 23:24:08 2003 UTC
# Line 1157  SCM_DEFINE (scm_putenv, "putenv", 1, 0, Line 1157  SCM_DEFINE (scm_putenv, "putenv", 1, 0,
1157              "The return value is unspecified.")              "The return value is unspecified.")
1158  #define FUNC_NAME s_scm_putenv  #define FUNC_NAME s_scm_putenv
1159  {  {
1160    int rv, e;    int rv;
1161    char *ptr;    char *ptr;
1162    
1163    SCM_VALIDATE_STRING (1, str);    SCM_VALIDATE_STRING (1, str);
# Line 1172  SCM_DEFINE (scm_putenv, "putenv", 1, 0, Line 1172  SCM_DEFINE (scm_putenv, "putenv", 1, 0,
1172  #else  #else
1173        /* On e.g. Win32 hosts putenv() called with 'name=' removes the        /* On e.g. Win32 hosts putenv() called with 'name=' removes the
1174           environment variable 'name'. */           environment variable 'name'. */
1175          int e;
1176        ptr = scm_malloc (SCM_STRING_LENGTH (str) + 2);        ptr = scm_malloc (SCM_STRING_LENGTH (str) + 2);
1177        strncpy (ptr, SCM_STRING_CHARS (str), SCM_STRING_LENGTH (str));        strncpy (ptr, SCM_STRING_CHARS (str), SCM_STRING_LENGTH (str));
1178        ptr[SCM_STRING_LENGTH (str)] = '=';        ptr[SCM_STRING_LENGTH (str)] = '=';

Legend:
Removed from v.1.115  
changed lines
  Added in v.1.116

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