| | Simulation of other Paradigms and Continuations - slide 4 : 43 |
(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 "Message not understood" message))))
self)) | Accompanying functions for instantiation and message passing. |