なるほど。。！ こうやってやるのかぁ (define *eof* (let ((port (open-input-string ""))) (read port))) (eof-object? *eof*) ; => #t ; 参考 ;https://gist.github.com/sasaki-shigeo/5352496