Back to lecture notes -- Keyboard shortcut: 'u'                      Lecture 8 - slide 11 : 11
 

(define (new-instance class . parameters)
 (let ((instance (apply class parameters)))
   (virtual-operations instance)
   instance))

; Arrange for virtual operations in object
(define (virtual-operations object)
  (send 'set-self! object object))