From 1207ca77c44b8fc11d2c0c50374428bf3e11167e Mon Sep 17 00:00:00 2001
From: Asumu Takikawa <asumu@ccs.neu.edu>
Date: Tue, 24 Apr 2012 10:00:18 -0400
Subject: [PATCH] Hide internal fields in color% and point%.

---
 collects/racket/draw/private/color.rkt | 2 +-
 collects/racket/draw/private/point.rkt | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/racket/draw/private/color.rkt b/collects/racket/draw/private/color.rkt
index a55f78b54e..d716750eba 100644
--- a/collects/racket/draw/private/color.rkt
+++ b/collects/racket/draw/private/color.rkt
@@ -12,7 +12,7 @@
          color->immutable-color)
 
 (define-local-member-name
-  r g b)
+  r g b a)
 
 (defclass color% object%
   (field [r 0]
diff --git a/collects/racket/draw/private/point.rkt b/collects/racket/draw/private/point.rkt
index 6e8cdda1d8..c4ac09619b 100644
--- a/collects/racket/draw/private/point.rkt
+++ b/collects/racket/draw/private/point.rkt
@@ -5,6 +5,8 @@
 (provide point% point-x point-y
          list-of-pair-of-real?)
 
+(define-local-member-name x y)
+
 (define point%
   (class object%
     (init-field [x 0.0]