(require (lib "aif.ss" "macro"))

(define (port->string-list port)
  (aif line eof-object? (read-line port)
	   (list)
	   (cons line (port->string-list port))))