How is this:
#lang racket
(define graph%
(class object%
(field ((n nodes) '()))
(public (get get-fields))
(define/public (all) (get))
(define (get) n)
(super-new)))
(define graph (new graph%))
(define fields (get-field nodes graph))
(equal? (send graph get-fields) fiel
The Racket reference says:
5.2.3.3 Internal and External Names
Each method declared with public, override, augment, pubment,
overment, augride, public-final, override-final, augment-final,
inherit, inherit/super, inherit/inner, rename-super, and rename-inner
can have separate internal and external
2 matches
Mail list logo