Next:
Class `animal-shelter'
Up:
2nd example of object
Previous:
Class `dog'
Contents
Index
Class `cat'
Georg P. Loczewski 2004-03-05
![\begin{lstlisting}[language=Scm]{}
(define make-cat
(lambda(aname)
(define sup...
... (equalx msg 'who-are-you)
who-are-you
(super msg))))
self))
\end{lstlisting}](img155.gif)
Georg P. Loczewski
2004-03-05