Rename local variables from getter/setter to pixel-getter/pixel-setter

1 files changed, 6 insertions, 6 deletions

diff --git a/pnm/pgm.scm b/pnm/pgm.scm
index 5abbab2..c0e0b25 100644
--- a/pnm/pgm.scm
+++ b/pnm/pgm.scm
@@ -41,25 +41,25 @@
          (if (< maxval 256)
              (let ()
                (define (xy->idx x y) (+ x (* y width)))
-               (define (getter x y)
+               (define (pixel-getter x y)
                  (let ((idx (xy->idx x y)))
                    (bytevector-u8-ref data idx)))
-               (define (setter x y v)
+               (define (pixel-setter x y v)
                  (let ((idx (xy->idx x y)))
                    (bytevector-u8-set! data idx v)))
-               (make-image 'pgm width height maxval data getter setter))
+               (make-image 'pgm width height maxval data pixel-getter pixel-setter))
              (let ()
                (define (xy->idx x y) (+ x (* y width)))
-               (define (getter x y)
+               (define (pixel-getter x y)
                  (let ((idx (xy->idx x y)))
                    (combine-values (bytevector-u8-ref data idx)
                                    (bytevector-u8-ref data (+ idx 1)))))
-               (define (setter x y v)
+               (define (pixel-setter x y v)
                  (let ((idx (xy->idx x y)))
                    (let-values (((v1 v2) (split-value v)))
                      (bytevector-u8-set! data idx v1)
                      (bytevector-u8-set! data (+ idx 1) v2))))
-               (make-image 'pgm width height maxval data getter setter))))))
+               (make-image 'pgm width height maxval data pixel-getter pixel-setter))))))
 
     (define (split-value v)
       (values (modulo (quotient v 256) 256)