next up previous contents index
Next: Class `library' part 1 Up: 3rd example of object Previous: Class `reader'   Contents   Index

Class `book'


\begin{lstlisting}[language=Scm]{}
(define make-book
(lambda(atitle anauthor)
...
...ualx msg 'display)
display
(base-object msg))))))))))
self))
\end{lstlisting}


Georg P. Loczewski 2004-03-05

Impressum und Datenschutz
access counter