Closures are poor man's objects. Objects are poor man's closures.

person.scm

(define person (lambda (first last) 
	(define setFirst (lambda (value) (set! first (list-ref value 0))))
	(define setLast (lambda (value) (set! last (list-ref value 0))))
	(lambda (method . args)
		(case method
			('first 
				(if (null? args)
					first
					(setFirst args)
				)
			)
			('last 
				(if (null? args)
					last
					(setLast args)
				)
			)
		)
	)
))
(define jimmy (person "Jimmy" "Jams"))
(display (jimmy 'first))
(jimmy 'first "Bibble")
(display (jimmy 'first))