On Jan 12, 2006, at 8:25 AM, Marc Feeley wrote:
This can be guaranteed by reading the character from a port that is not buffered (i.e. buffering: #f).
Thanks, it required changing only one line:
[lindv2:scheme/Arrays/srfi2] lucier% rcsdiff -c pgm.scm =================================================================== RCS file: RCS/pgm.scm,v retrieving revision 1.4 diff -c -r1.4 pgm.scm *** pgm.scm 2005/11/12 18:34:22 1.4 --- pgm.scm 2006/01/12 15:39:35 *************** *** 34,40 **** (else #f))))
(call-with-input-file ! file (lambda (port) (let* ((header (read-pgm-object port)) (columns (read-pgm-object port)) --- 34,43 ---- (else #f))))
(call-with-input-file ! (list path: file ! char-encoding: 'latin1 ! eol-encoding: 'lf ! buffering: #f) (lambda (port) (let* ((header (read-pgm-object port)) (columns (read-pgm-object port))