一応コンパイルができるようになった。Scheme -> Haskell と変換して、そのまんま ghc にコンパイルさせてます。
(define main (print (fact 10)))
(define (fact x) (if (= x 0) 1 (* x (fact (- x 1)))))
% ./minscheme compile fact.scm
[1 of 1] Compiling Main ( /tmp/fact.hs, /tmp/fact.o )
Linking /tmp/fact ...
% ./fact
3628800
%
