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

racket/draw: fix result on non-void `record-dc%' methods

Browse Source 
Merge to 5.3
This commit is contained in:
Matthew Flatt 2012-04-14 20:43:55 -06:00
parent 4179cbfa63
commit b09870cf7e
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/racket/draw/private/record-dc.rkt
View File

@ -101,7 +101,7 @@
(let ([p (make-object pen% color width style cap join)])
(send p set-stipple (unconvert-bitmap stipple))
p)
(send the-pen-list find-or-create-pen color width style cap join)))
(send the-pen-list find-or-create-pen color width style cap join)))
(define (clone-brush b)
(cond
@ -401,11 +401,12 @@
[_ #'(values)]))
args)])
#'(define/override (name arg-formal ...)
(super name arg-id ...)
(when (continue-recording?)
(let (arg-bind ...)
(record (lambda (dc) (send dc name arg-id ...))
(lambda () (list 'name (arg-convert ... arg-id) ...))))))))]))
(begin0
(super name arg-id ...)
(when (continue-recording?)
(let (arg-bind ...)
(record (lambda (dc) (send dc name arg-id ...))
(lambda () (list 'name (arg-convert ... arg-id) ...)))))))))]))
(define-syntax (generate-record-unconvert stx)
(syntax-case stx ()