suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix some region% reporting

Browse Source
This commit is contained in:
Matthew Flatt 2010-10-18 06:36:13 -07:00
parent c4ab7733c1
commit 177c972a52
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/racket/draw/region.rkt
View File

@ -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)