diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-08 01:07:32 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-08 01:07:32 +0900 |
| commit | eea3a41609ab2ac72d19166812e01213de3b0bc3 (patch) | |
| tree | eeca387f7e318fa866798704146d51270451db7f /pnm | |
| parent | f771fb288ff62d761fcf43e0815a9b2a482db7b4 (diff) | |
Rename procedures from image-pixel-ref/set! to image-ref/set!
Diffstat (limited to 'pnm')
| -rw-r--r-- | pnm/image.scm | 8 | ||||
| -rw-r--r-- | pnm/read.scm | 2 |
2 files changed, 5 insertions, 5 deletions
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)) |