From fd4a72db990d6ec5e62b4d1ffebd8f40c8ee5a30 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Sun, 4 Aug 2024 19:34:27 +0900 Subject: Remove the ability to pass bytevector directly to make-*-image --- pnm/read.scm | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'pnm/read.scm') diff --git a/pnm/read.scm b/pnm/read.scm index e277a32..a2e0555 100644 --- a/pnm/read.scm +++ b/pnm/read.scm @@ -64,8 +64,8 @@ (case magic-number ((P4) (read-single-whitespace*) - (make-pbm-image width height - (read-bytevector (* (ceiling (/ width 8)) height) in))) + (%make-pbm-image width height + (read-bytevector (* (ceiling (/ width 8)) height) in))) ((P1) (let ((byte-width (ceiling (/ width 8))) (pbm-image (make-pbm-image width height))) @@ -81,10 +81,10 @@ (case magic-number ((P6) (read-single-whitespace*) - (make-ppm-image width height maxval - (if (< maxval 256) - (read-bytevector (* 3 width height) in) - (read-bytevector (* 6 width height) in)))) + (%make-ppm-image width height maxval + (if (< maxval 256) + (read-bytevector (* 3 width height) in) + (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) @@ -93,10 +93,10 @@ ppm-image)) ((P5) (read-single-whitespace*) - (make-pgm-image width height maxval - (if (< maxval 256) - (read-bytevector (* width height) in) - (read-bytevector (* 2 width height) in)))) + (%make-pgm-image width height maxval + (if (< maxval 256) + (read-bytevector (* width height) in) + (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) -- cgit v1.2.3