From a98208d1eab09ed371bebb280fc5766f205a6ee0 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Mon, 19 Mar 2012 01:13:58 +0100
Subject: [PATCH] Fixed identification of inactive processes in unixint.d

---
 src/c/unixint.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/unixint.d b/src/c/unixint.d
index d2de5a9f0..157c657ec 100644
--- a/src/c/unixint.d
+++ b/src/c/unixint.d
@@ -829,7 +829,7 @@ ecl_interrupt_process(cl_object process, cl_object function)
          * - In POSIX systems it sends a user level interrupt to
          *   the thread, which then decides how to act.
          */
-        unlikely_if (process->process.active != 1) {
+        unlikely_if (!process->process.active) {
 		FEerror("Cannot interrupt non-active process ~A",
 			1, process);
 	}