Program

object-class.scm - A simulation of the root of a class hierarchy.

Lecture 8 - slide 8 : 11
Program 1

(define (object)
  (let ((super '())
        (self 'nil))

   (define (dispatch message)
       '())
 
   (set! self dispatch)
   self))