From b09870cf7ebbdb9066ff792ed86bf2ac974fa85e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 14 Apr 2012 20:43:55 -0600 Subject: [PATCH] racket/draw: fix result on non-void `record-dc%' methods Merge to 5.3 --- collects/racket/draw/private/record-dc.rkt | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/collects/racket/draw/private/record-dc.rkt b/collects/racket/draw/private/record-dc.rkt index d1caa46f8e..916f0cb3ec 100644 --- a/collects/racket/draw/private/record-dc.rkt +++ b/collects/racket/draw/private/record-dc.rkt @@ -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 ()