From eea3a41609ab2ac72d19166812e01213de3b0bc3 Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Thu, 8 Aug 2024 01:07:32 +0900
Subject: Rename procedures from image-pixel-ref/set! to image-ref/set!

---
 pnm/image.scm | 8 ++++----
 pnm/read.scm  | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'pnm')

diff --git a/pnm/image.scm b/pnm/image.scm
index 15702ba..ceab0cf 100644
--- a/pnm/image.scm
+++ b/pnm/image.scm
@@ -26,8 +26,8 @@
           image-data
           image-pixel-getter
           image-pixel-setter
-          image-pixel-ref
-          image-pixel-set!)
+          image-ref
+          image-set!)
   (import (scheme base)
           (scheme case-lambda))
   (begin
@@ -42,10 +42,10 @@
       (pixel-getter image-pixel-getter)
       (pixel-setter image-pixel-setter))
 
-    (define (image-pixel-ref image x y)
+    (define (image-ref image x y)
       ((image-pixel-getter image) x y))
 
-    (define image-pixel-set!
+    (define image-set!
       (case-lambda
         ((image x y v)
          ((image-pixel-setter image) x y v))
diff --git a/pnm/read.scm b/pnm/read.scm
index 42ded91..a2e0555 100644
--- a/pnm/read.scm
+++ b/pnm/read.scm
@@ -71,7 +71,7 @@
                      (pbm-image (make-pbm-image width height)))
                  (read-text-raster width height #f in
                                    (lambda (x y v)
-                                     (image-pixel-set! pbm-image x y (= v 1)))
+                                     (image-set! pbm-image x y (= v 1)))
                                    unexpected-eof-error
                                    unexpected-character-error)
                  pbm-image))
-- 
cgit v1.2.3