diff options
Diffstat (limited to 'pnm/ppm.scm')
-rw-r--r-- | pnm/ppm.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pnm/ppm.scm b/pnm/ppm.scm index 453ca78..4ca453e 100644 --- a/pnm/ppm.scm +++ b/pnm/ppm.scm @@ -27,7 +27,7 @@ ((width height maxval) (when (or (< maxval 0) (< 65536 maxval)) - (error "(pnm ppm) make-ppm-image: maxval is out of range")) + (error "(pnm ppm) make-ppm-image: Maxval is out of range")) (let ((data (make-bytevector (* width height (if (< maxval 256) @@ -38,7 +38,7 @@ ((width height maxval data) (when (or (< maxval 0) (< 65536 maxval)) - (error "(pnm ppm) make-ppm-image: maxval is out of range")) + (error "(pnm ppm) make-ppm-image: Maxval is out of range")) (if (< maxval 256) (let* ((w*3 (* width 3))) (define (xy->idx x y) (+ (* 3 x) (* y w*3))) |