diff options
Diffstat (limited to 'pnm/pbm.scm')
| -rw-r--r-- | pnm/pbm.scm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/pnm/pbm.scm b/pnm/pbm.scm index 696c4d3..d580616 100644 --- a/pnm/pbm.scm +++ b/pnm/pbm.scm @@ -56,15 +56,15 @@ (error (string-append "(pnm pbm) make-pbm-image: Invalid bytevector length" byte-count))) (let ((check-xy (make-xy-checker width height)) (check-boolean-value (make-boolean-value-checker))) - (make-image 'pbm width height #t data - (if unsafe? - pixel-getter - (lambda (x y) - (check-xy x y) - (pixel-getter x y))) - (if unsafe? - pixel-setter - (lambda (x y v) - (check-xy x y) - (check-boolean-value v) - (pixel-setter x y v))))))))) + (make-pnm-image 'pbm width height #t data + (if unsafe? + pixel-getter + (lambda (x y) + (check-xy x y) + (pixel-getter x y))) + (if unsafe? + pixel-setter + (lambda (x y v) + (check-xy x y) + (check-boolean-value v) + (pixel-setter x y v))))))))) |