From b1ec1e51cca9b780b70e063637ad0c54b29162ab Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 9 Sep 2004 16:24:09 +0000
Subject: [PATCH] .

original commit: 721b6eb23b7ba4d1ace07a4409f00a58d5b523b5
---
 collects/mred/mred.ss | 36 ++++++++++++++++++++----------------
 1 file changed, 20 insertions(+), 16 deletions(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 88cba76c..678dfadf 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -97,22 +97,26 @@
 ; entry-point macros in macros.ss
 
 (define (as-exit f)
-  ; (unless (eq? monitor-owner (current-thread)) (error 'monitor-exit "not in monitored area"))
-  (call-with-parameterization
-   old-paramz
-   (lambda ()
-     (call-with-break-parameterization
-      old-break-paramz
-      (lambda ()
-	(dynamic-wind
-	    (lambda ()
-	      (set! monitor-owner #f)	 
-	      (semaphore-post monitor-sema)
-	      (wx:in-atomic-region #f))
-	    f
-	    (lambda ()
-	      (wx:in-atomic-region monitor-sema)
-	      (set! monitor-owner (current-thread)))))))))
+  ;; (unless (eq? monitor-owner (current-thread)) (error 'monitor-exit "not in monitored area"))
+  (let ([paramz old-paramz]
+	[break-paramz old-break-paramz])
+    (call-with-parameterization
+     paramz
+     (lambda ()
+       (call-with-break-parameterization
+	break-paramz
+	(lambda ()
+	  (dynamic-wind
+	      (lambda ()		
+		(set! monitor-owner #f)	 
+		(semaphore-post monitor-sema)
+		(wx:in-atomic-region #f))
+	      f
+	      (lambda ()
+		(set! old-paramz paramz)
+		(set! old-break-paramz break-paramz)
+		(wx:in-atomic-region monitor-sema)
+		(set! monitor-owner (current-thread))))))))))
 
 (define-syntax entry-point 
   (lambda (stx)