diff options
author | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-10 22:53:12 +0900 |
---|---|---|
committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-10 23:13:11 +0900 |
commit | e59d89f39f090f8feb16a48ed150e5ac48c2858f (patch) | |
tree | d88fb66f0280f717599fd4e9ca97eb4a234ef24a /pnm/pbm.scm | |
parent | f67f8d68b33a5d0b2ae2409a81c30d852a475ebe (diff) |
Rename procedures from `image-*` to `pnm-image-*`
Diffstat (limited to 'pnm/pbm.scm')
-rw-r--r-- | pnm/pbm.scm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/pnm/pbm.scm b/pnm/pbm.scm index 696c4d3..d580616 100644 --- a/pnm/pbm.scm +++ b/pnm/pbm.scm @@ -56,15 +56,15 @@ (error (string-append "(pnm pbm) make-pbm-image: Invalid bytevector length" byte-count))) (let ((check-xy (make-xy-checker width height)) (check-boolean-value (make-boolean-value-checker))) - (make-image 'pbm width height #t data - (if unsafe? - pixel-getter - (lambda (x y) - (check-xy x y) - (pixel-getter x y))) - (if unsafe? - pixel-setter - (lambda (x y v) - (check-xy x y) - (check-boolean-value v) - (pixel-setter x y v))))))))) + (make-pnm-image 'pbm width height #t data + (if unsafe? + pixel-getter + (lambda (x y) + (check-xy x y) + (pixel-getter x y))) + (if unsafe? + pixel-setter + (lambda (x y v) + (check-xy x y) + (check-boolean-value v) + (pixel-setter x y v))))))))) |