Gauche is a modern, full-featured Scheme that already supports much of R7RS.

Visit the home-page: http://practical-scheme.net/gauche/