ファイル読み込み open-input-file, read-char, eof-object? に対応

https://github.com/moremagic/MyLisp/commit/a942d4a30e60fd8584e2cc74f806a196696bb7d6

;ファイル読み込みテスト
; http://www.geocities.jp/m_hiroi/func/abcscm07.html を参考にしました
(define (type1 filename)
    (let ( (iport (open-input-file filename)))
        (let loop ((c (read-char iport)))
	    (cond ((not (eof-object? c))
	           (display c)
		   (loop (read-char iport)))))
        (close-input-port iport)))

(type1 "test.txt")

出来た。
けれども末尾再帰最適化が完全でないので
少し大きいファイルを type1 で読み込むと
スタックオーバフローになっちゃいます。。。orz

末尾再帰をちゃんとできるようにしないとだめだなぁ、、、