From 20ab31743d646323f1cbccf68172cdd8b2f57355 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 25 Oct 2010 09:29:02 -0600 Subject: [PATCH] fix yet another mistake in atomic-mode implementation --- collects/ffi/unsafe/atomic.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)