From abec39a9018fd45f662879c641c0fa8570d7daff Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 9 Aug 2013 06:08:15 -0500 Subject: [PATCH] use new position-integer? predicate the check is to avoid drawing check syntax arrows that go too far away; this may not be really possible anymore, but in the past the old limit could be hit with a long file and an arrow that went its length --- pkgs/drracket-pkgs/drracket/drracket/private/syncheck/gui.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/syncheck/gui.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/syncheck/gui.rkt index 9c1533abd7..b9991e30c1 100644 --- a/pkgs/drracket-pkgs/drracket/drracket/private/syncheck/gui.rkt +++ b/pkgs/drracket-pkgs/drracket/drracket/private/syncheck/gui.rkt @@ -1432,7 +1432,7 @@ If the namespace does not, they are colored the unbound color. (loop (send (send admin get-snip) get-editor)) #f)]))) (cond - [(and window (< -10000 x-off 10000) (< -10000 y-off 10000)) + [(and window (position-integer? x-off) (position-integer? y-off)) (define (c n) (inexact->exact (round n))) (define-values (gx gy) (send window client->screen (c x-off) (c y-off))) (values gx gy gx gy)]