Next:
Class `library' part 1
Up:
3rd example of object
Previous:
Class `reader'
Contents
Index
Class `book'
Georg P. Loczewski 2004-03-05
![\begin{lstlisting}[language=Scm]{}
(define make-book
(lambda(atitle anauthor)
...
...ualx msg 'display)
display
(base-object msg))))))))))
self))
\end{lstlisting}](img164.gif)
Georg P. Loczewski
2004-03-05