I saw the title, came to post the exact code that OP posted. It's from Dybvig's Scheme programming language book. I remember going through that book and just being blown away by the elegance of Scheme.