fix yet another mistake in atomic-mode implementation

2010-10-25 09:29:02 -06:00 · 2010-10-25 09:29:02 -06:00 · 20ab31743d
commit 20ab31743d
parent d2275f4179
1 changed files with 1 additions and 1 deletions
--- 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)