PasteRack.org
Paste # 26108
2015-03-27 18:07:31

Fork as a new paste.

Paste viewed 329 times.


Embed:

private init field

  1. #lang racket
  2.  
  3. (define fish%
  4.   (class object%
  5.     (init color)
  6.  
  7.     (define color color)
  8.  
  9.     (super-new)
  10.  
  11.     (define/public (get-color)
  12.       color)))

=>

eval:2:0: class: duplicate declared identifier

  at: color

  in: (class object% (init color) (define color color)

(super-new) (define/public (get-color) color))