From d26517b49b4ced6a8c75a7780c32c1d6e72245cc Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 3 Jul 2018 13:43:25 -0600 Subject: [PATCH] thread: add missing `end-atomic` --- racket/src/thread/atomic.rkt | 1 + racket/src/thread/sync.rkt | 1 + 2 files changed, 2 insertions(+) diff --git a/racket/src/thread/atomic.rkt b/racket/src/thread/atomic.rkt index 8fe77e4f49..c1e2d8d7b4 100644 --- a/racket/src/thread/atomic.rkt +++ b/racket/src/thread/atomic.rkt @@ -41,6 +41,7 @@ (set! end-atomic-callback #f) (current-atomic n) (cb)] + [(negative? n) (internal-error "not in atomic mode to end")] [else (current-atomic n)])) diff --git a/racket/src/thread/sync.rkt b/racket/src/thread/sync.rkt index 52dc3c0bb6..43b7dcdb15 100644 --- a/racket/src/thread/sync.rkt +++ b/racket/src/thread/sync.rkt @@ -125,6 +125,7 @@ (end-atomic) (loop #f #f)] [else + (end-atomic) ;; Return result in a thunk: (lambda () #f)])] [(and (all-asynchronous? s)