/[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.114 by ela, Fri May 30 09:39:34 2003 UTC revision 1.115 by kryde, Wed Jun 11 23:15:02 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;    int rv, e;
1161    char *ptr;    char *ptr;
1162    
1163    SCM_VALIDATE_STRING (1, str);    SCM_VALIDATE_STRING (1, str);
# Line 1177  SCM_DEFINE (scm_putenv, "putenv", 1, 0, Line 1177  SCM_DEFINE (scm_putenv, "putenv", 1, 0,
1177        ptr[SCM_STRING_LENGTH (str)] = '=';        ptr[SCM_STRING_LENGTH (str)] = '=';
1178        ptr[SCM_STRING_LENGTH (str) + 1] = 0;        ptr[SCM_STRING_LENGTH (str) + 1] = 0;
1179        rv = putenv (ptr);        rv = putenv (ptr);
1180          e = errno; free (ptr); errno = e;
1181        if (rv < 0)        if (rv < 0)
1182          SCM_SYSERROR;          SCM_SYSERROR;
1183  #endif  #endif

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

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