Vim+MzSchemeのファイル入出力がおかしい。

Vim+MzSchemeのファイル入出力がおかしい。何故かhomeのファイルを開いてしまう。PWDをいじってみたけど変化なし。

うぅぅぅ。

今の所の対処法は、

cd.vimをいじる。

aug CD
  au!
  au BufEnter * execute ":lcd " . expand("%:p:h")
  au BufEnter * let $PWD = expand("%:p:h")
aug END

Schemeの方。

(define (append-full-path path)
  (string-append (getenv "PWD") "/" path))
(with-output-to-file (append-full-path "hoge.txt")
                     (lambda () (write "file write test.")))

なんとか現在のディレクトリで入出力が出来るようになった。

ちょっとめんどい。