read-into-string

[Russell McManus <russell dot mcmanus at msdw dot com>]

Is there a way in guile-1.3.4 to implement this function so that
it runs in a reasonable amount of time?  I am trying to do something
analgous to CL's read-sequence.

(define (read-into-string str port)
  (let ((len (string-length str)))
    (do ((i 0 (1+ i)))
	((= i len) str)
      (string-set! str i (read-char port)))))

-russ


--
"If you were plowing a field, which would you rather use?  Two strong
oxen or 1024 chickens?"
             -- Seymour Cray