Update step_5.rkt : useless redundance removed

step_5.rkt

@@ -77,12 +77,6 @@
       ((super 'set-self!) ref)
       ))
   (define (getcolor) color)
-  ; Added getter functions (getx and gety) implemented using super.
-  (define (getx) (send super 'getx))
-  (define (gety) (send super 'gety))
-  ; Added setter functions (setx! and sety!) implemented using super.
-  (define (setx! value) (send super 'setx value))
-  (define (sety! value) (send super 'sety value))
   (define (gettype) 'color-point)
   (define (getinfo) (append (send super 'info) (list (getcolor))))
   (define (add cp)
@@ -98,8 +92,6 @@
     )
   (define (self m)
     (cond ((eq? m 'get-color) getcolor)
-          ((eq? m 'getx) getx)
-          ((eq? m 'gety) gety)
           ((eq? m 'info) getinfo)
           ((eq? m 'type) gettype)
           ((eq? m 'add)  add)