From d69728b8993e701ade4bdd8629c3b80905d200b2 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Mon, 1 Jan 2001 16:49:34 +0000
Subject: [PATCH] fixed typo

---
 scsh/bsd/waitcodes.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scsh/bsd/waitcodes.scm b/scsh/bsd/waitcodes.scm
index ce370ae..5e0619d 100644
--- a/scsh/bsd/waitcodes.scm
+++ b/scsh/bsd/waitcodes.scm
@@ -31,7 +31,7 @@
 (define (status:term-sig status)
   (let ((termsig (bitwise-and status #x7F)))
     (and (not (zero? termsig))				; Didn't exit.
-	 (not (= #x7F))					; Not suspended.
+	 (not (= termsig #x7F))				; Not suspended.
 	 termsig)))