From 902da3ffc611d03b6a3c63f01bae3112a31dc1d4 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 17 Nov 1993 22:23:14 +0000
Subject: [PATCH] Eliminate race condition that often caused SIGSEGV when
 notifier was started up.

---
 v7/src/edwin/notify.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/notify.scm b/v7/src/edwin/notify.scm
index 0d7e6b815..da2e883b8 100644
--- a/v7/src/edwin/notify.scm
+++ b/v7/src/edwin/notify.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: notify.scm,v 1.12 1993/10/27 23:29:18 cph Exp $
+;;;	$Id: notify.scm,v 1.13 1993/11/17 22:23:14 cph Exp $
 ;;;
 ;;;	Copyright (c) 1992-93 Massachusetts Institute of Technology
 ;;;
@@ -182,7 +182,8 @@ which can show various things including time, load average, and mail status."
 	    editor-thread-root-continuation
 	    (lambda ()
 	      (do () (#f)
-		(inferior-thread-output! notifier-thread-registration)
+		(if notifier-thread-registration
+		    (inferior-thread-output! notifier-thread-registration))
 		(sleep-current-thread
 		 (* 1000 (ref-variable notify-interval))))))))
       (detach-thread thread)
-- 
2.25.1