From d4ad3d9686a2e4d02d600d05d319424924e07881 Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Sat, 3 Aug 2024 21:14:53 +0900
Subject: Fix newline? and whitespace? definition

---
 pnm/read.scm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'pnm')

diff --git a/pnm/read.scm b/pnm/read.scm
index ae7676f..5cfec94 100644
--- a/pnm/read.scm
+++ b/pnm/read.scm
@@ -82,7 +82,14 @@
 
     (define (whitespace? u8)
       (case (integer->char u8)
-        ((#\newline #\return #\tab #\space) #t)
+        ((#\newline
+          #\return
+          #\tab
+          #\space
+          #\x000B ;; Vertical Tab
+          #\x000c ;; Form Feed
+          )
+         #t)
         (else #f)))
 
     (define (comment? u8)
@@ -90,7 +97,7 @@
 
     (define (newline? u8)
       (case (integer->char u8)
-        ((#\newline #\return) #t)
+        ((#\newline) #t)
         (else #f)))
 
     (define (read-comment in)
-- 
cgit v1.2.3