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

fix region use in card-game library

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-15 07:44:39 -06:00
parent 61788d68d5
commit ff90587223
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/games/cards/card-class.rkt
View File

@ -14,8 +14,8 @@
(define prev-region-dc #f)
(define (with-card-region dc x y width height thunk)
(let ([rs (if (eq? prev-region-dc dc)
prev-regions
(let ([rs (if #f ; (eq? prev-region-dc dc) <- assumes the same xform matrix
prev-regions
(cons (make-object mred:region% dc)
(make-object mred:region% dc)))])
(set! prev-regions rs)