changed to deal with new representation of pictures...

diff --git a/v7/src/6001/pic-reco.scm b/v7/src/6001/pic-reco.scm
index fce17cc1c731fe43f38b5fb5f0510f7f96bb4d50..aad57b67ac53226190ebedf771f19040f9864cda 100644 (file)
--- 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)))))