diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-07 12:29:21 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-07 12:29:51 +0900 |
| commit | 4847907ee7e44f9b83e7f7c55dc9605d261bb18e (patch) | |
| tree | bd50782dfce418cdb0e4376b2ce8bf5c1daaa9c1 /pnm/read.scm | |
| parent | cdbc4960a0f4f3cdf38a1892e55e766de6b8ef81 (diff) | |
Raneme procedures from pixel-setter/getter to pixel-writer/reader
Diffstat (limited to 'pnm/read.scm')
| -rw-r--r-- | pnm/read.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pnm/read.scm b/pnm/read.scm index a2e0555..7d2cbdc 100644 --- a/pnm/read.scm +++ b/pnm/read.scm @@ -87,7 +87,7 @@ (read-bytevector (* 6 width height) in)))) ((P3) (let ((ppm-image (make-ppm-image width height maxval))) - (read-text-raster width height #t in (image-pixel-setter ppm-image) + (read-text-raster width height #t in (image-pixel-writer ppm-image) unexpected-eof-error unexpected-character-error) ppm-image)) @@ -99,7 +99,7 @@ (read-bytevector (* 2 width height) in)))) ((P2) (let ((pgm-image (make-pgm-image width height maxval))) - (read-text-raster width height #f in (image-pixel-setter pgm-image) + (read-text-raster width height #f in (image-pixel-writer pgm-image) unexpected-eof-error unexpected-character-error) pgm-image)))))))))) |