diff options
author | Neil Jerram <neil@ossau.uklinux.net> | 2010-03-02 23:45:27 +0000 |
---|---|---|
committer | Neil Jerram <neil@ossau.uklinux.net> | 2010-03-05 23:41:33 +0000 |
commit | 7edad77c2e675a508ae04a97a689dfc1b9b74546 (patch) | |
tree | ec287ca013e26bc885bfe64c4effafa665d77c92 | |
parent | f41529c37b4a740aa555741ca78faa55fafcb3c0 (diff) | |
download | guile-7edad77c2e675a508ae04a97a689dfc1b9b74546.tar.gz |
On MinGW, return #t instead of calling system (NULL)
* libguile/simpos.c (scm_system): On MinGW avoid call system (NULL),
return hardcoded #t instead.
-rw-r--r-- | libguile/simpos.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/libguile/simpos.c b/libguile/simpos.c index 402e4dc88..c4e019cb5 100644 --- a/libguile/simpos.c +++ b/libguile/simpos.c @@ -69,8 +69,15 @@ SCM_DEFINE (scm_system, "system", 0, 1, 0, if (SCM_UNBNDP (cmd)) { +#ifdef __MINGW32__ + /* MinGW doesn't support system (NULL), so we hardcode #t + instead. When is a command processor ever not available, + anyway? */ + return SCM_BOOL_T; +#else rv = system (NULL); return scm_from_bool(rv); +#endif } SCM_VALIDATE_STRING (1, cmd); errno = 0; |