This may not be what you're looking for, but it's a nifty example of building a small text adventure system in Racket and then leveraging its language building tools.

http://queue.acm.org/detail.cfm?id=2068896