From 5c88bd5fba768dc88738401990c4ad43fc141f59 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Sun, 4 Aug 2024 16:17:50 +0900 Subject: Fix error messages --- pnm/ppm.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'pnm/ppm.scm') 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))) -- cgit v1.2.3