Re: drain-input

[Gary Houston]

> From: Alex Shinn <address@hidden>
> Date: 30 Aug 2001 02:19:30 -0400
> 
> For the particular problem of getting the contents of a file as a
> string, I ended up doing
> 
> (define (file-contents file)
>   (call-with-input-file file
>     (lambda (p)
>       (let* ((size (stat:size (stat p)))
>              (buf (make-string size)))
>         (read-string!/partial buf p)
>         buf))))

Take a bit of care with read-string!/partial: it's not guaranteed to
return all the characters that you ask for, even when EOF is not
reached.  There should be loop around it, or read-string!  should be
used instead (which is not available in (ice-9 rw) at present,
regretfully).