From 440d81869346951bbd7060043faeb5593ac5865d Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Wed, 7 Aug 2024 12:33:41 +0900 Subject: Rename procedures from image-ref/set! to image-pixel-read/pixel-write! --- pnm/read.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pnm/read.scm') diff --git a/pnm/read.scm b/pnm/read.scm index 7d2cbdc..d13557e 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-set! pbm-image x y (= v 1))) + (image-pixel-write! pbm-image x y (= v 1))) unexpected-eof-error unexpected-character-error) pbm-image)) -- cgit v1.2.3