From 59cdbffea3e6937283834dd014693c92b73a89ee Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 5 Jun 2015 17:51:33 -0700 Subject: [PATCH] Mark with-thread-events-blocked stack frames with the symbol. These frames can then be recognized in Debug_Stack_Trace output. --- src/runtime/conpar.scm | 2 +- src/runtime/thread.scm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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 -- 2.25.1