next up previous contents index
Next: Class `dog' Up: 2nd example of object Previous: Base class for all   Contents   Index

Class `animal'


\begin{lstlisting}[language=Scm]{} (define make-animal (lambda(aname) (define ... ...x msg 'who-are-you) who-are-you (base-object msg))))) self)) \end{lstlisting}

domain access counter Georg P. Loczewski 2004-03-05