From ef664169e1dabfd2a9cf67f7eca729fc33bda67a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 2 Dec 2020 13:00:22 -0700 Subject: [PATCH] ffi/unsafe/objc: method installed by method_setImplementation as atomic Just in case. --- racket/collects/ffi/unsafe/objc.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/collects/ffi/unsafe/objc.rkt b/racket/collects/ffi/unsafe/objc.rkt index bf1e385f50..0f7612bb64 100644 --- a/racket/collects/ffi/unsafe/objc.rkt +++ b/racket/collects/ffi/unsafe/objc.rkt @@ -37,7 +37,7 @@ (lambda (v) (not (eq? v 0))))) (define _Method (_cpointer/null 'Method)) -(define _IMP (_fun #:async-apply (lambda (f) (f)) _id _SEL -> _id)) +(define _IMP (_fun #:atomic? #t #:async-apply (lambda (f) (f)) _id _SEL -> _id)) (define-cstruct _objc_super ([receiver _id][class _Class]))