suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: unbreak #:in-original-place? for foreign procedures

Browse Source
This commit is contained in:
Matthew Flatt 2019-10-09 19:43:00 -06:00
parent f3aae7f4fb
commit 2ad4c6f508
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/cs/rumble/foreign.ss
View File

@ -1776,7 +1776,7 @@
[else r])))))]) [else r])))))])
(if (and orig-place? (if (and orig-place?
(not (eqv? 0 (get-thread-id)))) (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))))]) (go))))])
(c->s out-type r))) (c->s out-type r)))
(fxsll 1 (length in-types)) (fxsll 1 (length in-types))