diff options
author | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-03 21:14:53 +0900 |
---|---|---|
committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-03 23:22:03 +0900 |
commit | d4ad3d9686a2e4d02d600d05d319424924e07881 (patch) | |
tree | 7bafb093e84a6b4fa67657e961f47bd63e641586 | |
parent | 3c1d24af6e0250839358b1c9cab8094ee975ea1a (diff) |
Fix newline? and whitespace? definition
-rw-r--r-- | pnm/read.scm | 11 |
1 files changed, 9 insertions, 2 deletions
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) |