diff options
Diffstat (limited to 'pnm/read.scm')
| -rw-r--r-- | pnm/read.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/pnm/read.scm b/pnm/read.scm index 22a6a02..1f0017a 100644 --- a/pnm/read.scm +++ b/pnm/read.scm @@ -208,8 +208,9 @@ (call-with-current-continuation (lambda (return) (let ((u8 (peek-u8 in))) - (when (or (eof-object? u8) - (not (digit? u8))) + (when (eof-object? u8) + (return (eof-object))) + (when (not (digit? u8)) (return #f))) (let loop ((number 0)) (let ((u8 (peek-u8 in))) |