From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sat, 11 Jul 2015 20:27:14 +0000 (-0700)
Subject: Goofy whitespace in signal-select-result.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dee02d55b504c13595c3377900ab54c3ba60f688;p=mit-scheme.git

Goofy whitespace in signal-select-result.
---

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index 3d987d7a8..e3bd9cc17 100644
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -676,7 +676,7 @@ USA.
 				  (vector-ref result 2)))
 	((eq? 'PROCESS-STATUS-CHANGE result)
 	 (%handle-subprocess-status-change))
-        ((eq? 'INTERRUPT result)
+	((eq? 'INTERRUPT result)
 	 (unlock)
 	 (handle-interrupts)
 	 (lock))))