Class `cat'

(define make-cat
  (lambda(aname)
    (define super (make-animal aname))
;
    (define who-are-you
      (lambda()
        (print "Miau miau: ")
        (print ((super 'get-name)))))
;
    (define self
      (lambda(msg)
        (if (equal msg 'who-are-you)
            who-are-you
            (super msg))))
     self))

Georg P. Loczewski 2004-03-05

Impressum und Datenschutz