Mark with-thread-events-blocked stack frames with the symbol.

These frames can then be recognized in Debug_Stack_Trace output.

diff --git a/src/runtime/conpar.scm b/src/runtime/conpar.scm
index ed600080c3c28c62f149bde6be73b5805641e5dc..8dc3c0717f18b4c4ab74b1f67c0f927c3375216b 100644 (file)
--- a/src/runtime/conpar.scm
+++ b/src/runtime/conpar.scm
@@ -448,7 +448,7 @@ USA.
               (continue (parser-state/dynamic-state state)
                         (parser-state/block-thread-events? state)
                         marker-instance))
-             ((eq? marker-type with-thread-events-blocked)
+             ((eq? marker-type 'WITH-THREAD-EVENTS-BLOCKED)
               (continue (parser-state/dynamic-state state)
                         marker-instance
                         (parser-state/interrupt-mask state)))

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index f831f3ca02cae21a7229fa5be7869db57db67130..862c1cf68e52c331cf1e2c4f34e2792a5dd3ef05 100644 (file)
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -785,7 +785,7 @@ USA.
                      (let ((value (thunk)))
                        (set-interrupt-enables! interrupt-mask/gc-ok)
                        value))
-                   with-thread-events-blocked
+                   'WITH-THREAD-EVENTS-BLOCKED
                    block-events?)))
              (let ((thread first-running-thread))
                (if thread