From eea3a41609ab2ac72d19166812e01213de3b0bc3 Mon Sep 17 00:00:00 2001 From: Masaya Tojo 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 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'pnm/image.scm') 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)) -- cgit v1.2.3