(library (io) (export read-line) (import (except (rnrs base) let-values map error) (only (guile) lambda* λ current-input-port) (ice-9 textual-ports)) (define read-line (lambda* (#:key (input-port (current-input-port))) (get-line input-port))))