From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 17 Nov 1993 22:23:14 +0000 (+0000)
Subject: Eliminate race condition that often caused SIGSEGV when notifier was
X-Git-Tag: 20090517-FFI~7490
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=902da3ffc611d03b6a3c63f01bae3112a31dc1d4;p=mit-scheme.git

Eliminate race condition that often caused SIGSEGV when notifier was
started up.
---

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)