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 dac34edad5815f9ab8c0710d9d6f3ed439864757..5b02a344b6374f010d27d7bdae3142202519eaa8 100644 (file)
--- 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 b3ab83c400dbeb93d4a0d9de65631bf4ef4da871..ab5bd037bfcdc384ba5086e35d6920368bac2f24 100644 (file)
--- 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))