/[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.112 by mvo, Sat Apr 5 19:10:22 2003 UTC revision 1.113 by ela, Thu May 29 14:39:13 2003 UTC
# Line 1162  SCM_DEFINE (scm_putenv, "putenv", 1, 0, Line 1162  SCM_DEFINE (scm_putenv, "putenv", 1, 0,
1162    
1163    SCM_VALIDATE_STRING (1, str);    SCM_VALIDATE_STRING (1, str);
1164    
1165    #ifndef __MINGW32__
1166    if (strchr (SCM_STRING_CHARS (str), '=') == NULL)    if (strchr (SCM_STRING_CHARS (str), '=') == NULL)
1167      {      {
1168        /* No '=' in argument means we should remove the variable from        /* No '=' in argument means we should remove the variable from
# Line 1170  SCM_DEFINE (scm_putenv, "putenv", 1, 0, Line 1171  SCM_DEFINE (scm_putenv, "putenv", 1, 0,
1171        unsetenv (SCM_STRING_CHARS (str));        unsetenv (SCM_STRING_CHARS (str));
1172      }      }
1173    else    else
1174    #endif
1175      {      {
1176        /* must make a new copy to be left in the environment, safe from gc.  */        /* must make a new copy to be left in the environment, safe from gc.  */
1177        ptr = scm_malloc (SCM_STRING_LENGTH (str) + 1);        ptr = scm_malloc (SCM_STRING_LENGTH (str) + 1);

Legend:
Removed from v.1.112  
changed lines
  Added in v.1.113

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