リファクタリング道場

Gauche で書いてみる に関して、id:rui314 さんがコメントできれいにリファクタリングしてくださいました。
rui314さんのコメント

得た教訓

• 右によりすぎない
• (define x (lambda (arg) よりも (define (x arg)
• print を使おう
• 正規表現マッチの成功・失敗で分岐するには、rxmatch-condやrxmatch-ifをつかう
• internal define をつかう
• port-for-each xxx read-line
• main で 0を返す。あ。これで謎が解けた

せっかくなので写経して手元のコードを書き直しました。
file-for-each は自分ライブラリ行きとなりました。
ありがとうございます。