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

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

@ -401,11 +401,12 @@
[_ #'(values)])) [_ #'(values)]))
args)]) args)])
#'(define/override (name arg-formal ...) #'(define/override (name arg-formal ...)
(begin0
(super name arg-id ...) (super name arg-id ...)
(when (continue-recording?) (when (continue-recording?)
(let (arg-bind ...) (let (arg-bind ...)
(record (lambda (dc) (send dc name arg-id ...)) (record (lambda (dc) (send dc name arg-id ...))
(lambda () (list 'name (arg-convert ... arg-id) ...))))))))])) (lambda () (list 'name (arg-convert ... arg-id) ...)))))))))]))
(define-syntax (generate-record-unconvert stx) (define-syntax (generate-record-unconvert stx)
(syntax-case stx () (syntax-case stx ()