fixed bug from mailing list

svn: r7807
This commit is contained in:
Robby Findler 2007-11-21 21:01:18 +00:00
parent b7df0e92d8
commit b59bcf44af

View File

@ -1578,7 +1578,7 @@ WARNING: printf is rebound in the body of the unit to always
(values (reverse (cons (cons (bytes->string/utf-8 converted-bytes) key) acc))
(enqueue
(cons (subbytes the-bytes
(- (bytes-length the-bytes) src-read-k)
src-read-k
(bytes-length the-bytes))
key)
(empty-queue)))