Re: Read n bytes

[Neil Jerram]

>>>>> "Neil" == Neil Jerram <address@hidden> writes:

    Neil>     (define (read-num-chars port len) (let loop ((i len)
    Neil> (ret '())) (if (zero? i) (list->string (reverse! ret)) (loop
    Neil> (- i 1) (cons (read-char port) ret)))))

Another possible approach:

(define (read-num-chars port len)
  (list->string (map (lambda (i)
                       (read-char port))
                     (iota len))))

Here we're taking advantage of the iteration implicit in `map' and the
list construction performed by `iota'.

        Neil