diff options
Diffstat (limited to 'pnm/read.scm')
-rw-r--r-- | pnm/read.scm | 20 |
1 files changed, 10 insertions, 10 deletions
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) |