From c3cbea235b7299e4fc84e505fbb97acd61af1a69 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Sun, 4 Aug 2024 00:55:10 +0900 Subject: Fix behavior of `read-number` on error --- pnm/read.scm | 5 +++-- 1 file 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))) -- cgit v1.2.3