Raneme procedures from pixel-setter/getter to pixel-writer/reader

1 files changed, 8 insertions, 8 deletions

diff --git a/pnm/image.scm b/pnm/image.scm
index ceab0cf..4960ec6 100644
--- a/pnm/image.scm
+++ b/pnm/image.scm
@@ -24,30 +24,30 @@
           image-height
           image-maxval
           image-data
-          image-pixel-getter
-          image-pixel-setter
+          image-pixel-reader
+          image-pixel-writer
           image-ref
           image-set!)
   (import (scheme base)
           (scheme case-lambda))
   (begin
     (define-record-type <image>
-      (make-image type width height maxval data pixel-getter pixel-setter)
+      (make-image type width height maxval data pixel-reader pixel-writer)
       image?
       (type image-type)
       (width image-width)
       (height image-height)
       (maxval image-maxval)
       (data image-data)
-      (pixel-getter image-pixel-getter)
-      (pixel-setter image-pixel-setter))
+      (pixel-reader image-pixel-reader)
+      (pixel-writer image-pixel-writer))
 
     (define (image-ref image x y)
-      ((image-pixel-getter image) x y))
+      ((image-pixel-reader image) x y))
 
     (define image-set!
       (case-lambda
         ((image x y v)
-         ((image-pixel-setter image) x y v))
+         ((image-pixel-writer image) x y v))
         ((image x y r g b)
-         ((image-pixel-setter image) x y r g b))))))
+         ((image-pixel-writer image) x y r g b))))))