diff --git a/collects/ffi/unsafe/atomic.rkt b/collects/ffi/unsafe/atomic.rkt index 3030cb5d59..a53b5231c6 100644 --- a/collects/ffi/unsafe/atomic.rkt +++ b/collects/ffi/unsafe/atomic.rkt @@ -118,9 +118,9 @@ (loop (sub1 i))))) f (lambda () + (start-breakable-atomic) (set! old-paramz paramz) (set! old-break-paramz break-paramz) - (start-breakable-atomic) (let loop ([i extra-depth]) (unless (zero? i) (start-breakable-atomic)