picrinのREPLを少し快適に(妥協案)

先日久々にPicrinを触ったところ，readlineがSchemeで書き直されたようで，
historyを辿ったりといったことが出来なくなっていました。

それはあまりにも苦しいので，とりあえず現状の打開策としてGaucheの手法を真似てみることにしました。

Gaucheでは，
http://practical-scheme.net/gauche/man/gauche-refj_14.html
にあるように，scheme-program-nameに"gosh -i"をsetqしてやることでrun-schemeで起動できるようにしています。

これをそのまま真似してやって

(setq process-coding-system-alist
      (cons '("picrin" utf-8 . utf-8) process-coding-system-alist))
(setq scheme-program-name "picrin")
(autoload 'scheme-mode "cmuscheme" "Major mode for Scheme." t)
(autoload 'run-scheme "cmuscheme" "Run an inferior Scheme process." t)

あとはM-x run-schemeするだけでPicrinのreplがEmacsの側で使えます。勿論ヒストリ機能なども使えます。