next up previous contents index
Next: Test of `animal-shelter' Up: 2nd example of object Previous: Class `cat'   Contents   Index

Class `animal-shelter'


\begin{lstlisting}[language=Scm]{}
(define make-shelter
(lambda()
(define anim...
...
(if (equalx msg 'display)
display
(super msg)))))))
self))
\end{lstlisting}


Georg P. Loczewski 2004-03-05

Impressum und Datenschutz