From cdbc4960a0f4f3cdf38a1892e55e766de6b8ef81 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Tue, 6 Aug 2024 20:30:52 +0900 Subject: Change return value of (image-maxval pbm-image) from 1 to `#t` --- pnm/pbm.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pnm/pbm.scm') diff --git a/pnm/pbm.scm b/pnm/pbm.scm index b8e3178..b3d2c3c 100644 --- a/pnm/pbm.scm +++ b/pnm/pbm.scm @@ -55,4 +55,4 @@ (copy-bit (- 7 bit-idx) byte b))))) (unless (= byte-count (bytevector-length data)) (error (string-append "(pnm pbm) make-pbm-image: Invalid bytevector length" byte-count))) - (make-image 'pbm width height 1 data pixel-getter pixel-setter))))) + (make-image 'pbm width height #t data pixel-getter pixel-setter))))) -- cgit v1.2.3