Rename procedures from image-pixel-read/write! to image-pixel-ref/set!

1 files changed, 3 insertions, 3 deletions

diff --git a/pnm/pbm.scm b/pnm/pbm.scm
index e8e01d3..b3d2c3c 100644
--- a/pnm/pbm.scm
+++ b/pnm/pbm.scm
@@ -44,15 +44,15 @@
             (values (+ (* y byte-width)
                        byte-x)
                     bit-x)))
-        (define (pixel-reader x y)
+        (define (pixel-getter x y)
           (let-values (((byte-idx bit-idx) (xy->byte-idx+bit-idx x y)))
             (let ((byte (bytevector-u8-ref data byte-idx)))
               (bit-set? (- 7 bit-idx) byte))))
-        (define (pixel-writer x y b)
+        (define (pixel-setter x y b)
           (let-values (((byte-idx bit-idx) (xy->byte-idx+bit-idx x y)))
             (let ((byte (bytevector-u8-ref data byte-idx)))
               (bytevector-u8-set! data byte-idx
                                   (copy-bit (- 7 bit-idx) byte b)))))
         (unless (= byte-count (bytevector-length data))
           (error (string-append "(pnm pbm) make-pbm-image: Invalid bytevector length" byte-count)))
-        (make-image 'pbm width height #t data pixel-reader pixel-writer)))))
+        (make-image 'pbm width height #t data pixel-getter pixel-setter)))))