From 819c70434a3218ae578ead785917ff4cf30d576f Mon Sep 17 00:00:00 2001 From: aragorn Date: Tue, 9 Jun 1992 16:53:36 +0000 Subject: [PATCH] changed to deal with new representation of pictures... --- v7/src/6001/pic-reco.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/6001/pic-reco.scm b/v7/src/6001/pic-reco.scm index fce17cc1c..aad57b67a 100644 --- a/v7/src/6001/pic-reco.scm +++ b/v7/src/6001/pic-reco.scm @@ -84,7 +84,7 @@ (bad-range-signal y 'PICTURE-REF)) (else (floating-vector-ref - (floating-vector-ref (picture-data picture) y) x))))) + (vector-ref (picture-data picture) y) x))))) (define (make-picture-setter bad-type-predicate bad-range-signal) (lambda (picture x y value) @@ -99,7 +99,7 @@ (fix:< y (picture-height picture)))) (bad-range-signal y 'PICTURE-SET!)) (else - (floating-vector-set! (floating-vector-ref (picture-data picture) y) + (floating-vector-set! (vector-ref (picture-data picture) y) x (exact->inexact value)) (invalidate-cached-values picture))))) -- 2.25.1