diff options
author | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-04 16:17:50 +0900 |
---|---|---|
committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-04 16:17:50 +0900 |
commit | 5c88bd5fba768dc88738401990c4ad43fc141f59 (patch) | |
tree | dbc8dfccbf811dffbd38570d1e03192844ed0c04 | |
parent | 35e95f597b37559b902efb886ef6966c3c4bb684 (diff) |
Fix error messages
-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))) |