Scheme-interpreter is a project mainly written in Haskell, it's free.
scheme interpreter in haskell
The beginnings of a Scheme compiler, based on "Write Yourself A Scheme"