Anonymous user
Polymorphic copy: Difference between revisions
m
Racket →Using classes: use inherit-field
(Add Racket Task) |
m (Racket →Using classes: use inherit-field) |
||
Line 1,340:
(class point%
(super-new)
(inherit-field x y)
(init-field color)
(define/override (clone) (new this% [x
(define/override (to-list) (list this%
{{out}}
<pre>(#<class:point%> 0 0)
|