*** empty log message ***

original commit: 5821e655ee5d9148e9c2ed431f683018f41ec473
2002-03-01 07:14:14 +00:00 · 2002-03-01 07:14:14 +00:00 · 11c6f25574
commit 11c6f25574
parent 80467f0f02
1 changed files with 4 additions and 5 deletions
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@ -3822,11 +3822,10 @@
    (public
      [swap-gl-buffers (lambda () (send wx swap-buffers))]
      [with-gl-context (lambda (thunk) 
-			 (dynamic-wind
-			     (lambda () (send wx this-context-current))
-			     thunk
-			     (lambda () (send wx previous-context-current))))]
-
+                         (dynamic-wind
+                          (lambda () (send wx this-context-current))
+                          thunk
+                          void))]
      [accept-tab-focus (entry-point
 			 (case-lambda
 			  [() (send wx get-tab-focus)]