Library test part 1

(define library
  (lambda()
    (define mylib     (make-library "net-library"))
    (print " ")
;
    (define church    (make-author "Church"))
    (define kamin     (make-author "Kamin"))
    (define chazarain (make-author "Chazarain"))
    (print " ")
;
    ((church 'new-book) "The Calculi of Lambda Conversion" mylib)
    ((kamin  'new-book) "Programming Languages: An Interpreter Based Approach"
                        mylib)
    ((chazarain 'new-book) "Programmer avec Scheme" mylib)
    (print " ")
;
    (define charly     (make-reader "charly"))
    (define martha     (make-reader "martha"))
    (print " ")
;
    (define lcbook 
            ((martha 'purchase-book) 
             church "The Calculi of Lambda Conversion" mylib))
    (define plbook 
            ((martha 'borrow-book) 
             kamin "Programming Languages: An Interpreter Based Approach" 
             mylib))
    (define chbook 
            ((charly 'borrow-book) 
             chazarain "Programmer avec Scheme" mylib))
    (print " ")
;

Georg P. Loczewski 2004-03-05

Impressum und Datenschutz