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

thread: add missing end-atomic

Browse Source
This commit is contained in:
Matthew Flatt 2018-07-03 13:43:25 -06:00
parent 89db60abc9
commit d26517b49b
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
racket/src/thread/atomic.rkt
View File

@ -41,6 +41,7 @@
(set! end-atomic-callback #f) (set! end-atomic-callback #f)
(current-atomic n) (current-atomic n)
(cb)] (cb)]
[(negative? n) (internal-error "not in atomic mode to end")]
[else [else
(current-atomic n)])) (current-atomic n)]))

1
racket/src/thread/sync.rkt
View File

@ -125,6 +125,7 @@
(end-atomic) (end-atomic)
(loop #f #f)] (loop #f #f)]
[else [else
(end-atomic)
;; Return result in a thunk: ;; Return result in a thunk:
(lambda () #f)])] (lambda () #f)])]
[(and (all-asynchronous? s) [(and (all-asynchronous? s)