A general pattern of classes (original) (raw)

(define (class-name construction-parameters) (let ((instance-var init-value) ...)

(define (method parameter-list) method-body)

...

(define (self message) (cond ((eqv? message selector) method) ...

   (else (error "Undefined message" message))))
 

self))