#lang scheme

;;; Cada fichero está en algún sitio.
;;; Path = trayectoria que conduce al sitio
(define dir-path "/Volumes/abenitez/ZETA/")


;;; Cada fichero tiene un nombre y una extensión
;;; prueba1 = nombre; txt = extensión
(define nombre-fichero "prueba1.txt")

;;; la variable in-port-1 tiene como valor el puerto
;;; que devuelve open-input-file.
(define in-port-1 
  (open-input-file 
   (string-append dir-path nombre-fichero)))

;;; Primera prueba de lectura del contenido del fichero
(define read-mientras-no-eof
  (lambda (in-port)
    (let go ((item (read in-port)))
      (if (eof-object? item)
          (close-input-port in-port)
          (begin
            (display item)
            (go (read in-port))) ) ) ))

(read-mientras-no-eof in-port-1)