From 997a2be6869ca483219d67d689ef18f0cf4296f4 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 11 Jan 2011 13:29:59 -0600 Subject: [PATCH] change copy-from to return this. closes PR 11609 --- collects/racket/draw/private/color.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/racket/draw/private/color.rkt b/collects/racket/draw/private/color.rkt index e594dd20c3..876558d93a 100644 --- a/collects/racket/draw/private/color.rkt +++ b/collects/racket/draw/private/color.rkt @@ -70,7 +70,8 @@ (def/public (copy-from [color% c]) (if immutable? (error (method-name 'color% 'copy-from) "object is immutable") - (set (color-red c) (color-green c) (color-blue c) (color-alpha c))))) + (begin (set (color-red c) (color-green c) (color-blue c) (color-alpha c)) + this))) (define color-red (class-field-accessor color% r)) (define color-green (class-field-accessor color% g))