How to get EOF object in Scheme (Scheme で EOF オブジェクトを得る方法)

end-of-file.scm

(cond-expand
  (guile (use-modules (srfi srfi-6)))
  (gauche (use srfi-6))
  (plt (require (lib "6.ss" "srfi")))
  (srfi-6 #t))

;;; SRFI-6 provides open-input-string
(define *eof*
  (let ((port (open-input-string "")))
    (read port)))

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