whoops

2011-01-11 13:31:38 -06:00 · 2011-01-11 13:31:38 -06:00 · 1b0fdfd0a9
commit 1b0fdfd0a9
parent 997a2be686
1 changed files with 1 additions and 1 deletions
--- a/collects/racket/draw/private/color.rkt
+++ b/collects/racket/draw/private/color.rkt
@ -71,7 +71,7 @@
    (if immutable?
        (error (method-name 'color% 'copy-from) "object is immutable")
        (begin (set (color-red c) (color-green c) (color-blue c) (color-alpha c))
-               this)))
+               this))))

 (define color-red (class-field-accessor color% r))
 (define color-green (class-field-accessor color% g))