From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sat, 6 Jun 2015 00:51:33 +0000 (-0700)
Subject: Mark with-thread-events-blocked stack frames with the symbol.
X-Git-Tag: mit-scheme-pucked-9.2.12~376^2~68
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=59cdbffea3e6937283834dd014693c92b73a89ee;p=mit-scheme.git

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 ed600080c..8dc3c0717 100644
--- 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 f831f3ca0..862c1cf68 100644
--- 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