From 2ad4c6f508e25b76cac5af512ae2467b1c484bc9 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 9 Oct 2019 19:43:00 -0600 Subject: [PATCH] cs: unbreak `#:in-original-place?` for foreign procedures --- racket/src/cs/rumble/foreign.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/cs/rumble/foreign.ss b/racket/src/cs/rumble/foreign.ss index c33bc0c2c9..30f9f2d682 100644 --- a/racket/src/cs/rumble/foreign.ss +++ b/racket/src/cs/rumble/foreign.ss @@ -1776,7 +1776,7 @@ [else r])))))]) (if (and orig-place? (not (eqv? 0 (get-thread-id)))) - (async-callback-queue-call orig-place-async-callback-queue (lambda () (go)) #f #t void #t) + (async-callback-queue-call orig-place-async-callback-queue (lambda () (go)) #f #t #t) (go))))]) (c->s out-type r))) (fxsll 1 (length in-types))