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 /pnm/ppm.scm | |
| parent | 35e95f597b37559b902efb886ef6966c3c4bb684 (diff) | |
Fix error messages
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))) |