From 32d969d83d1c475454d2a270caad70bbebdda02c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 7 Aug 2009 12:40:55 +0000 Subject: [PATCH] fix problems parsing old WXME files svn: r15684 original commit: d1bd8a7a4025eff53147e32670bba0ee5d462d1a --- collects/mred/private/wxme/stream.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/wxme/stream.ss b/collects/mred/private/wxme/stream.ss index 58f8f768..7180acd9 100644 --- a/collects/mred/private/wxme/stream.ss +++ b/collects/mred/private/wxme/stream.ss @@ -517,10 +517,10 @@ (fail))] [(positive? (bitwise-and b #x02)) (if (= 2 (send f read-bytes buf 0 2)) - (integer-bytes->integer b #t #t) + (integer-bytes->integer buf #t #t 0 2) (fail))] [else - (if (= 4 (send f read-bytes buf 0 2)) + (if (= 4 (send f read-bytes buf 0 4)) (integer-bytes->integer buf #t #t) (fail))]) (if (= 1 (send f read-bytes buf 0 1))