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

allowed nested try-atomics

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-15 18:00:03 -06:00
parent 5ebfa781bd
commit 10455daf54
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/ffi/unsafe/try-atomic.rkt
View File

@ -70,6 +70,7 @@
(lambda () default)))
freeze-tag)
(void)))]
[prev #f]
[done? #f])
(hash-set! saved-ptrs handler #t)
(parameterize ([freezer-box #f])
@ -81,8 +82,7 @@
(lambda ()
(call-with-continuation-prompt ; to catch aborts
(lambda ()
(when (scheme_set_on_atomic_timeout handler)
(error 'try-atomic "internal error: nested handlers?!"))
(set! prev (scheme_set_on_atomic_timeout handler))
(set! ready? #t)
(begin0
(thunk)
@ -102,6 +102,6 @@
(thunk))))
(lambda ()
(hash-remove! saved-ptrs handler)
(scheme_restore_on_atomic_timeout #f)
(scheme_restore_on_atomic_timeout prev)
(unless done? (esc (void))))))))])))