read-file

[procedure] read-file [input-port]

Chicken

  (let loop ((expr (readinput-port)))
    (if (eof-object? expr)
        '()
        (cons expr (loop (read input-port)))))

See also port->sexp-list