replaced &i/o-write with &i/o-read for IO read errors. Duuh.

This commit is contained in:
Abdulaziz Ghuloum 2008-06-08 06:25:22 -07:00
parent a0c8346840
commit 432e1d9b87
2 changed files with 2 additions and 2 deletions

View File

@ -1266,7 +1266,7 @@
(refill bv idx cnt)] (refill bv idx cnt)]
[else [else
(io-error 'read id bytes (io-error 'read id bytes
(make-i/o-write-error))])))]) (make-i/o-read-error))])))])
refill) refill)
#f ;;; write! #f ;;; write!
#f ;;; get-position #f ;;; get-position

View File

@ -1 +1 @@
1502 1504