diff options
| author | simonmar <unknown> | 2001-12-21 15:07:26 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-12-21 15:07:26 +0000 |
| commit | ceb68b9118fa883e88abfaa532fc78f6640cf17f (patch) | |
| tree | b90b04a394fee4abd0cb09205120bee964684d7b /libraries/base/cbits/system.c | |
| parent | b83cfb91b4d36d148ebe171d31e2676c8f10f371 (diff) | |
| download | haskell-ceb68b9118fa883e88abfaa532fc78f6640cf17f.tar.gz | |
[project @ 2001-12-21 15:07:20 by simonmar]
Merge up to the ghc/lib/std on the HEAD (tagged as
new-libraries-last-merged).
Diffstat (limited to 'libraries/base/cbits/system.c')
| -rw-r--r-- | libraries/base/cbits/system.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libraries/base/cbits/system.c b/libraries/base/cbits/system.c index 805094fde1..6534ca84d7 100644 --- a/libraries/base/cbits/system.c +++ b/libraries/base/cbits/system.c @@ -1,7 +1,7 @@ /* * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998 * - * $Id: system.c,v 1.3 2001/08/17 12:50:34 simonmar Exp $ + * $Id: system.c,v 1.4 2001/12/21 15:07:26 simonmar Exp $ * * system Runtime Support */ @@ -13,6 +13,7 @@ #if defined(mingw32_TARGET_OS) #include <windows.h> +#include <stdlib.h> #endif HsInt @@ -20,8 +21,7 @@ systemCmd(HsAddr cmd) { /* -------------------- WINDOWS VERSION --------------------- */ #if defined(mingw32_TARGET_OS) - if (system(cmd) < 0) return -1; - return 0; + return system(cmd); #else /* -------------------- UNIX VERSION --------------------- */ int pid; |