Skip to content

Instantly share code, notes, and snippets.

@bishboria

bishboria/2011-04-26-intial-SchemeOO.scm

Created April 26, 2011 22:37
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save bishboria/943346 to your computer and use it in GitHub Desktop.
Save bishboria/943346 to your computer and use it in GitHub Desktop.
Download ZIP
Original attempt at OO with Scheme
Raw
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)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment