From: aragorn <aragorn>
Date: Tue, 9 Jun 1992 16:53:36 +0000 (+0000)
Subject: changed to deal with new representation of pictures...
X-Git-Tag: 20090517-FFI~9264
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=819c70434a3218ae578ead785917ff4cf30d576f;p=mit-scheme.git

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 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)))))