What is the best way to perform actions after a sequence terminates? Here is
a simple example that is like in-lines, but takes a path instead of a port.
It works, but I was wondering if there is a better way to do it.
(define (in-file-lines path)
(let ((port (open-input-file path #:mode 'text)))
(make-do-sequence
(lambda ()
(values
(lambda (_) (read-line port 'any))
void
(void)
void
(lambda _ (if (eof-object? (peek-byte port))
(begin
(close-input-port port)
#f)
#t))
void)))))
Thanks,
Doug
_________________________________________________
For list-related administrative tasks:
http://lists.racket-lang.org/listinfo/dev
