scheme で EOFオブジェクトを取得する方法

なるほど。。！
こうやってやるのかぁ

(define eof
　　(let ((port (open-input-string "")))
　　(read port)))


(eof-object? eof) ; => #t

; 参考
;https://gist.github.com/sasaki-shigeo/5352496