Artifact 01c4e9d7b7656ff05f782ed2ac3bfa923c4ffd34:

• File fmt/read-line.scm — part of check-in [ecd5997790] at 2016-07-23 07:46:20 on branch trunk — cairo improvements, added some tests (user: ovenpasta@pizzahack.eu size: 310)

(define (read-line . o)
  (let ((port (if (pair? o) (car o) (current-input-port))))
    (let lp ((res '()))
      (let ((c (read-char port)))
        (cond 
	 [(and (eof-object? c) (null? res)) #f]
	 [(or (eof-object? c) (eqv? c #\newline))
	  (list->string (reverse res))]
	 [else
	  (lp (cons c res))])))))