diff options
Diffstat (limited to 'pnm/image.scm')
| -rw-r--r-- | pnm/image.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/pnm/image.scm b/pnm/image.scm index 4960ec6..4022184 100644 --- a/pnm/image.scm +++ b/pnm/image.scm @@ -26,8 +26,8 @@ image-data image-pixel-reader image-pixel-writer - image-ref - image-set!) + image-pixel-read + image-pixel-write!) (import (scheme base) (scheme case-lambda)) (begin @@ -42,10 +42,10 @@ (pixel-reader image-pixel-reader) (pixel-writer image-pixel-writer)) - (define (image-ref image x y) + (define (image-pixel-read image x y) ((image-pixel-reader image) x y)) - (define image-set! + (define image-pixel-write! (case-lambda ((image x y v) ((image-pixel-writer image) x y v)) |