From a70700c3ff9d736c0a187f06a69bd3ce4aecd307 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 21 Nov 2007 21:01:18 +0000 Subject: [PATCH] fixed bug from mailing list svn: r7807 original commit: b59bcf44afe7472c86325cf225cb6423dea0f0ea --- collects/framework/private/text.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss index f9eee045..6981ee58 100644 --- a/collects/framework/private/text.ss +++ b/collects/framework/private/text.ss @@ -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)))