[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / runtime / storage / mprotect.lc

diff --git a/ghc/runtime/storage/mprotect.lc b/ghc/runtime/storage/mprotect.lc
index 8c50a6e..a27199f 100644 (file)
--- a/ghc/runtime/storage/mprotect.lc
+++ b/ghc/runtime/storage/mprotect.lc
@@ -65,7 +65,7 @@ int size;
     }
     if (mprotect(middle, pagesize, PROT_NONE) == -1) {
        perror("mprotect");
-       exit(1);
+       EXIT(EXIT_FAILURE);
     }
     if (install_segv_handler()) {
        fprintf(stderr, "Can't install SIGSEGV handler for stack overflow check.\n");