(read-file (current-input-port) read-line)

...

(read-file (current-input-port)

  (lambda (port)
   (let ((prev-line '()))
    (lambda ()
     (read-line port))))
  
  )