From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 20 Jan 2016 16:27:34 +0000 (-0700)
Subject: runtime/world-report.scm edwin/world-monitor.scm: minor fixes
X-Git-Tag: mit-scheme-pucked-9.2.12~371^2~16
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3aa06992df2432f5dd821e1518be097ce1965b26;p=mit-scheme.git

runtime/world-report.scm edwin/world-monitor.scm: minor fixes

Add missing case for thread-execution-state STOPPED.  Add "monitor" flag.
---

diff --git a/src/edwin/world-monitor.scm b/src/edwin/world-monitor.scm
index dac34edad..5b02a344b 100644
--- a/src/edwin/world-monitor.scm
+++ b/src/edwin/world-monitor.scm
@@ -51,7 +51,7 @@ it, and spawn a thread to update it after every
   (set-buffer-major-mode! buffer (ref-mode-object read-only))
   (let ((registration #f)
 	(report #f)
-	(thread-flags (list (cons (current-thread) "Edwin"))))
+	(thread-flags (list (cons (current-thread) "edwin"))))
 
     (define (new-report)
       (with-output-to-string
@@ -81,7 +81,9 @@ it, and spawn a thread to update it after every
 		       (exit-current-thread #t))))))))
 
       (buffer-put! buffer 'WORLD-MONITOR monitor)
+      (set! thread-flags (cons (cons monitor "monitor") thread-flags))
       (update-world-monitor! buffer (new-report))
+      (set-buffer-point! buffer (buffer-start buffer))
       (set! registration
 	    (register-inferior-thread!
 	     monitor (named-lambda (world-monitor-output!)
diff --git a/src/runtime/world-report.scm b/src/runtime/world-report.scm
index b3ab83c40..ab5bd037b 100644
--- a/src/runtime/world-report.scm
+++ b/src/runtime/world-report.scm
@@ -178,6 +178,7 @@ USA.
 		  ((RUNNING)	"running")
 		  ((DEAD)	"  dead ")
 		  ((WAITING)	"waiting")
+		  ((STOPPED)	"stopped")
 		  ((RUNNING-WITHOUT-PREEMPTION) "RUNNING")
 		  (else "   ????"))
 		port))