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

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

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

revision 1.52 by kryde, Fri Aug 22 23:23:17 2003 UTC revision 1.53 by kryde, Fri Aug 22 23:25:02 2003 UTC
# Line 65  SCM_DEFINE (scm_system, "system", 0, 1, Line 65  SCM_DEFINE (scm_system, "system", 0, 1,
65        return SCM_BOOL(rv);        return SCM_BOOL(rv);
66      }      }
67    SCM_VALIDATE_STRING (1, cmd);    SCM_VALIDATE_STRING (1, cmd);
   SCM_DEFER_INTS;  
68    errno = 0;    errno = 0;
69    rv = system (SCM_STRING_CHARS (cmd));    rv = system (SCM_STRING_CHARS (cmd));
70    if (rv == -1 || (rv == 127 && errno != 0))    if (rv == -1 || (rv == 127 && errno != 0))
71      SCM_SYSERROR;      SCM_SYSERROR;
   SCM_ALLOW_INTS;  
72    return SCM_MAKINUM (rv);    return SCM_MAKINUM (rv);
73  }  }
74  #undef FUNC_NAME  #undef FUNC_NAME

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

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