diff --git a/racket/src/cs/rumble/foreign.ss b/racket/src/cs/rumble/foreign.ss index 8e827ca072..98a8bf2143 100644 --- a/racket/src/cs/rumble/foreign.ss +++ b/racket/src/cs/rumble/foreign.ss @@ -1768,7 +1768,7 @@ (loop (cdr types) (cons (ctype-host-rep type) reps) decls)))]))) ;; Rely on the fact that a virtual register defaults to 0 to detect a -;; thread that we didn't start. For a thread that we did start, a +;; thread that we didn't start. (define PLACE-UNKNOWN-THREAD 0) (define PLACE-KNOWN-THREAD 1) (define PLACE-MAIN-THREAD 2) diff --git a/racket/src/cs/rumble/virtual-register.ss b/racket/src/cs/rumble/virtual-register.ss index 060b50e690..bde83d3bfb 100644 --- a/racket/src/cs/rumble/virtual-register.ss +++ b/racket/src/cs/rumble/virtual-register.ss @@ -44,4 +44,6 @@ ;; foreign thread that has not yet been initialized to run Rumble ;; and later layers: (when (eq? 0 (current-future)) - (init-virtual-registers))) + (init-virtual-registers) + ;; set `place-thread-category` back to "unknown": + (place-thread-category PLACE-UNKNOWN-THREAD)))