access fields in Racket

class_field_ex.rkt

#lang racket

(define foo%
  (class object%
    (init-field f)

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

(define foo (make-object foo% 42))
(send foo get-f)