From 177c972a525d659319d9d792d2277ca811ab328e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 18 Oct 2010 06:36:13 -0700 Subject: [PATCH] fix some region% reporting --- collects/racket/draw/region.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/racket/draw/region.rkt b/collects/racket/draw/region.rkt index d27c09503d..69c3348777 100644 --- a/collects/racket/draw/region.rkt +++ b/collects/racket/draw/region.rkt @@ -264,18 +264,18 @@ (set! paths (list (cons p 'any))))) (define/private (check-compatible r who) - (unless (eq? dc (send r internal-get-dc)) + (unless (equal? dc (send r internal-get-dc)) (raise-mismatch-error (method-name 'region% who) "different built-in dc for given region: " r))) (def/public (intersect [region% r]) - (check-compatible r (lambda () (method-name 'region% 'union))) + (check-compatible r 'union) (modifying 'intersect) (set! paths (append paths (send r get-paths)))) (def/public (subtract [region% r]) - (check-compatible r (lambda () (method-name 'region% 'subtract))) + (check-compatible r 'subtract) (unless (null? paths) (let ([add-paths (send r get-paths)]) (unless (null? add-paths)