From 0e4b65ee6b8dfc6cfba01a9a91aa49babaa5d7c7 Mon Sep 17 00:00:00 2001
From: NalaGinrut <NalaGinrut@gmail.com>
Date: Sun, 16 Oct 2011 11:30:25 +0800
Subject: [PATCH] waitpid should return false on error

---
 libguile/posix.c |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/libguile/posix.c b/libguile/posix.c
index 2923dc6..5b8f849 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -731,7 +731,7 @@ SCM_DEFINE (scm_waitpid, "waitpid", 1, 1, 0,
     }
   SCM_SYSCALL (i = waitpid (scm_to_int (pid), &status, ioptions));
   if (i == -1)
-    SCM_SYSERROR;
+      return SCM_BOOL_F;
   return scm_cons (scm_from_int (i), scm_from_int (status));
 }
 #undef FUNC_NAME
-- 
1.7.0.4