summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNeil Jerram <neil@ossau.uklinux.net>2010-03-02 23:45:27 +0000
committerNeil Jerram <neil@ossau.uklinux.net>2010-03-05 23:41:33 +0000
commit7edad77c2e675a508ae04a97a689dfc1b9b74546 (patch)
treeec287ca013e26bc885bfe64c4effafa665d77c92
parentf41529c37b4a740aa555741ca78faa55fafcb3c0 (diff)
downloadguile-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.c7
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;