diff options
author | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-04 00:55:10 +0900 |
---|---|---|
committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-04 00:59:27 +0900 |
commit | c3cbea235b7299e4fc84e505fbb97acd61af1a69 (patch) | |
tree | a844324d3e49fcfd966329e3b58b796e85af6d12 /pnm/read.scm | |
parent | 232d1c28ea6d797e01ea069f28c9e4b138117802 (diff) |
Fix behavior of `read-number` on error
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))) |