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

1 files changed, 12 insertions, 12 deletions

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