Original attempt at OO with Scheme

2011-04-26-intial-SchemeOO.scm

(define (person person-name person-age)
  (define (name)
    person-name)
  (define (age)
    person-age)
  (lambda (selector)
    (cond ((equal? selector 'name) (name))
          ((equal? selector 'age)  (age))
          (#t '(I cant do that Dave!)))))

(define someone (person 'stuart 28))
(someone 'name)
(someone 'age)