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

fix mred handling of errors within critical sections

Browse Source 
svn: r9710
This commit is contained in:
Matthew Flatt 2008-05-07 00:33:03 +00:00
parent 860c41d749
commit 5a367ba427
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mred/private/lock.ss
View File

@ -76,7 +76,8 @@
(set! old-break-paramz #f) (set! old-break-paramz #f)
(semaphore-post monitor-sema) (semaphore-post monitor-sema)
(wx:in-atomic-region #f)))) (wx:in-atomic-region #f))))
lock-tag))])) lock-tag
(lambda (t) (t))))]))
(define (as-exit f) (define (as-exit f)
;; (unless (eq? monitor-owner (current-thread)) (error 'monitor-exit "not in monitored area")) ;; (unless (eq? monitor-owner (current-thread)) (error 'monitor-exit "not in monitored area"))