From 9bd0486ca0b859a5f2c9f8d5d1b46c48b5e94ac0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 3 Nov 2011 10:06:22 -0600 Subject: [PATCH] fix non-tail loop in GL lock manager thread The non-tail loop would cause the gears example to grandually slow down, for example. --- collects/racket/draw/private/gl-context.rkt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/collects/racket/draw/private/gl-context.rkt b/collects/racket/draw/private/gl-context.rkt index e6b276449b..0daf47a917 100644 --- a/collects/racket/draw/private/gl-context.rkt +++ b/collects/racket/draw/private/gl-context.rkt @@ -34,8 +34,7 @@ (lambda (v) (loop))) (handle-evt (channel-put-evt lock-holder-ch t) - (lambda (v) (waiting-loop))))) - (loop)))) + (lambda (v) (waiting-loop)))))))) (handle-evt (channel-put-evt lock-holder-ch #f) (lambda (v) (loop))))))