suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix problems parsing old WXME files

Browse Source 
svn: r15684

original commit: d1bd8a7a4025eff53147e32670bba0ee5d462d1a
This commit is contained in:
Matthew Flatt 2009-08-07 12:40:55 +00:00
parent fc3ccde0b4
commit 32d969d83d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/wxme/stream.ss
View File

@ -517,10 +517,10 @@
(fail))] (fail))]
[(positive? (bitwise-and b #x02)) [(positive? (bitwise-and b #x02))
(if (= 2 (send f read-bytes buf 0 2)) (if (= 2 (send f read-bytes buf 0 2))
(integer-bytes->integer b #t #t) (integer-bytes->integer buf #t #t 0 2)
(fail))] (fail))]
[else [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) (integer-bytes->integer buf #t #t)
(fail))]) (fail))])
(if (= 1 (send f read-bytes buf 0 1)) (if (= 1 (send f read-bytes buf 0 1))